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Create KFE entry 
IDENT = ‘V04-000', 
ADDRESSING _MODE (EXTERNAL = GENERAL) 


1 
1 
MODULE INSCREATE ( H 


)s 
BEGIN 


J 
SR RRA REAR EERE ERR E EAE E EEA A ARATE AAA ATER 


® 
it 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 . 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
ie ALL RIGHTS RESERVED. + 
4 te 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ‘ 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICEN NSE AND WITH THE * 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT ARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. : 
® 
it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
it SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
in CORPORATIOW. . 
® 
* 
® 
+ 
& 
* 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeneeeeeeeeeneeeeeeeenee 


'44¢ 


i FACILITY: Install 
ABSTRACT: 

This module executes the CREATE, REPLACE and DELETE options on INSTALL 
ENVIRONMENT : 

VAX/VMS operating system. 
AUTHOR: Bob Grosso, April 1983 
Modified by: 


v03-023 MSHO065 Michael S. Harvey 16-Jul-1984 
Don't allow privileged or execute goly images to have 
transfer arrays pointing to SYSS$IAGST 

v03-022 MSH0061 Michael S. Harvey 5-Jul-1984 
Add EXEONLY unearth. 

V03-021 MSHO0S7 Michael S. Harvey 26-Jun-1984 


Store WRITEABLE attribute in KFE so that it can be 
propagated across a REPLACE command along with all 
the other attributes. 
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13 
1-52 1984 01:49:49 AX-11 Blis 
122808-1 382 93:98:48 INSTAL.SRC 
V03-020 MSH0047 Michael S. Harvey 11-May-1984 
Add some image header validation checks for images being 


installed with resident headers since such checks will 
not be done in the image activator for these cases. 


MSHO0046 Michael S. Harvey 11-May-1984 
Calculate an effective IDENT for shareable compatibility 
mode global sections, that is, an IDENT that can be 

used by the AME. Also, don’t attempt to determine the 
state of being ‘'shareable’’ for C-mode images by applying 
the native mode test for that state. 


MSHO038 Michael S. Harvey 30-Apr-1984 
Correct parameter definition in call to IMGSDECODE_IHD 
so that besa Ay He mode images are correctly recognised. 
Also, update ALIAS che 

check. Also, correctly set SHM when attempting to install 
images with shared memory global sections. 


MSHO033 Michael S. ferves 16-Apr-1984 

Back out part of MSHO030 below. Turns out that we onty 
want to change the page write access mode, while leaving 
the page ownership as USER instead of EXEC. 


nay ea Michael S. Harvey 11-Apr-1984 


aximum shared count now has meaning even for non-shareable 


images. Initialize the count in a more general way. 


MSH0030 Michael S. Harvey 9-Apr-1984 
Set up page ownership for protected images correctly. 


MSHO028 Michael S. Harvey 99-Apr-1984 
perrestiy set initial maximum shared count for shareable 
known file images. 


MSHO024 Michael S. Harvey 31-Mar-1984 
Don't attempt to create global sections for coupes 1ets tty 
mode tasks which are not built shareable (TKB /MU). 

Also, don't set SHARED or HDRRES bits if they shouldn't 
be set. This prevents later screwups in case the known 
file image is deleted. Also, clean up yerning to c-mode 
users that resident headers are not allowed fo 


MSHO022 Michael S. Harvey 15-Mar-1984 
Eliminate middle brackets from root directory spec. 
Also, correct care which flags the shared memory state. 
Also, clarify NOGBLSEC message so it's more useful. 


MSHOO18 Michael S. Harvey 77-Mar-1984 
Remove obsolete check for maximum file name length. It's 
qopesete now that global sections support 39 character 

e names. 


MSHOO17 Michael S. Harvey 77-Mar-1984 
Prevent pool loss when trying to install an image for 
which another version of the image is already installed. 


eo 


ck to conform to the image activator's 


r such images. 
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oe et 


V03-009 MSHO015 Michael S. Harvey 6-Mar-1984 
Warn user when installing a shareable image and no global 
sections can be created. 


V03-008 MSHO004 Michael S. mareey 13-F eb-1984 
Don't reject long image names. Also, add support of long 
global section names. 


V03-007 MSHO003 Michael S. Harvey 27-Jan-1984 
Prevent crash caused by eventual system service execution 
while IPL is incorrectly left at ASTDEL. 


v03-006 BLS0256 Benn Schreiber 53-Jan-1984 
Correct calls to allocate paged pool to check for errors 
so that system doesn't crash. Convert square brackets 
to angle brackets in KFD List. Don't allocate new KFD 
until we are ready to enter the KFE. 


' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
: v03-005 RPGOOOS Bob Grosso in lg 

: Change Global section ident to be something other 

' 

3 | 
1 } 
i 
' 

' 

' 

J 

' 

' 

' 

' 

! 

' 

' 

' 

' 

' 

' 


than zero for non shareable images. 
Set IPL to ASTDEL to ensure process is not deleted 
with pool allocated but not yet connected to List. 
Also comment code. 


V03-004 RPGO004 Bob Grosso July 25, 1983 
Count entries to assist Listing. 

v03-003 RPGO003 Bob Grosso July 20, 1983 
Correct call to MMGSRET_BYT_QUOTA, 


} 
| 
v03-002 RPGOOC2 Bob Grosso July 19, 1983 
Create protected global sections in user mode instead 

of exec mode. 

Set the SHRWCB bit in the WCB and call MMGSRET_BYT_QUOTA. 

To return byte quota since file is being opened for everyone. 

| 


V03-001 RPGO001 Bob Grosso July 7,1983 
Reduce items on kernel stack 


Include files 


LIBRARY ‘SYSSLIBRARY:LIB'; ! VAX/VMS system definitions 
REQUIRE ‘SRC$:INSPREFIX.REQ'; 


Be Se Be Se ee Se Se Ge Ge Se Se He Ge Se Se Se SHS Se SH Se Ge He Be SHES Ss Oe Oe Ose Se OH Se Oe Oe Se Se SHS Os Se HSH Os Oe HO ee Oe Stes 
eae aah disdained dainda adda de ede ae eae 
PEEP MAMMIMAG NN & BEEBE EWN NNWIIWIPPoPonofnenomnonwn 3 2 2 
SOFTER IS SENS AFUNZS Se NAME WN OC ODNAOUEWN SOO ODNAUS WN “ODOM 
fe we ew le www wa lawl alana lol alo laloleleloleoleolelolelelolololelolololololelololololololelolololo = ola) 
DDD DAD Be BS BBE EE EWAN NIWA RPOPUPPOPONPNNIPY SS SS SS 
OVD = O OONAUE WN O ODNO UE WN @ O ODNAU EWN OO OONOUE WR OOONOu 


AWWA et 9 OP? 9 PO YO SS SS SS YS SS SS SS Ss SS SS SS Ss SS Ss Ss Ss YS SS SS Ss Ss YS SS SS 
ec a ee ce ee ee ee ee ee ee ee ee a ee ce ec ee ee el ee ee iD ee ee ee ed ed ed ed eed 


REQUIRE : SHRL IBS: INGMSGDEF .R32" ; ! Message codes for the image header decode routines 
REQUIRE ‘LIBS: INSDEF .R32'; : Contains definition of INSTALL flags longword — 
5 REQUIRE "LIB$:RSXLBLDF.R3e'; ! Contains field offsets for compatability mode image header 
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542 | XSBTTL ‘Declarations’; | 


44 1 LINKAGE 


=i 
o 
co 


JSB_0 = JSB (REGISTER = 0), ! for MMGSRET_BYTE_QUOTA 


JSB_0.G1 = JSB (REGISTER = 0) : for IOC$VERIFYCHAN 
GCOBAL (ccb = 1) NOPRESERVE (2,3), 


JSB_G1_G2 = JSB 


: Allocate pool 
GLOBAL enggh = 1, entry_block = 2) 
NOPRESERVE Pe | 


JSB_G1_G2_3 = JSB (REGISTER = 3 
GLOBAC (Length = 1, entry_b 


4 Allocate memory in P1 space 
lock = 2), : 7 
| 


JSB_9_G610_G11 = JSB (REGISTER = 9) : MMGSGSDTRNLOG 
GCOBAC (SHRMEMNAM = 10, GSDNAM = 11); 


COO DON NN NAAN NNO 
WN OOONOUSWN Ow” 


i] 

} Table of contents 

FORWARD ROUTINE 
INS_CREATE, 


ALLOC PAGED, 
BUILB_KFD : NOVALUE, 


EN P 
VERIFY_CHANNEL, 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: Allocate from paged pool 
1 

: 

' CHECK _SHMIDENT, 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


Build a Known file Device, directory block 
Insert the Known File Entry into the Hash List and KFD Lis 


Check if global sections should be in shared memory 
Build the global section name with the _nnn suffix 


INS$BCD_GBLSECNAM; 


EXTERNAL ROUTINE 
INSSEXECUTE_IN_KRNL_WITH_W_LOCK, 
INSSCNVRT_KF_LOCK, 

INSSF IND_RFE? 
INSSCVT_BIR, 
INSSHASA; 


EXTERNAL ROUTINE 
EXESALLOCAT 
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ATE : JSB_G1_G2_3, ' Allocate in process space 

EXESALOPAGED : JSB_G1_G2 ' Allocate from paged gost 
10 IOCSVERIFYCHAN : JSB_0_G1, i verify device channe 
11 IMGSDECODE IHD ! Get and decode Image Header 
\ IMGSGET_NERT_15D, ! Get and decode Image Section Descriptors 
1 LIBSGET_VM, ' Allocate virtual memory 
14 LIBSFREE_VM ' Return virtual memory 
15 MMGSGSDTRNLOG : JSB_9_G10_G11, i See if global section is in shared memory | 
16 MMGSRET_BYT_QUOTA :~J5B_07 ' Return byte quota when sharing 
if SYSSFAO; ! format ASCII data 
19 EXTERNAL 
20 4 ctl$gq_allocreg, ! Memory allocation Listhead 
21 95 Sy ee » ' Process known file Listhead queues 
$§ 38 EXESGL_KNOWN FILES : REF BBLOCK, ! Pointer to knownfil list queues 
2 9 EXESGL-SYSUCB, ' Address of system disk unit control block 
24 98 INS$GL-CTLMSK : BLOCK (1), ! Control fiags 
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SARS 
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LITERAL 
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S$GQ_KFERNS 
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BLOKF DBUF 
IHDBUF : REF 


ISDBUF : REF SBBLOCK: 


ND 
SGN_B_KFHSHSIZ 


IND 
PROCESS _ERR_DSC = 
DUPINKFB_ERR_DSC = $D 


NOTE !! 


ate otK th, S_BLNI, 


ZS 
@ 
be We 
nD 
= 


ee ee ee 


: REF SBBLOCK 
HDRBLK BUF: REF  $BBLOC 


= SGNSGB_KFHSHSIZ : 


mo 


! Channel known image file is open on. 


! Result name syrins 
i Nn booe privilege mask 

block for the fi Lenane of the known image 
Return the KFE address when it has been created or replace | 
Return internal error descriptor 
i Number of kf List queues to put in header block 


Different version already exists 

Error reading image header 

jnege Linked with traceback 

INSTALL internal error 

unable to make image header resident 

No global sections created for shareable image 
Compatibility mode image can not be header resident 
File not shareable 

no known file entry found 

Not enough pagedyn 

System version mismatch 

Base of system service vectors 

Image startup system service 

Current system version value 


Create with gs 3 ol iF 
PTGR (" Duplicate in KFD') 


The following constant is defined as a workaround for a bug ll ye F Linker. 
Because catty tink. ce to the symbol SYSSIMGSTA causes the link 


fixed to allow /NOTRACEBACK for 


SYS_IMGSTA_OFF = 


y Link with /TRACEBACK and we don't want /TRACEBACK. -_ INSTALL, 
a constant is being defined here to provide an indirect reference to 
SYSSIMGSTA instead. 


This constant definition is a hack and should be removed once the Linker 


images that refer to SYSSIMGSTA. It's 
OK to have a constant because the symbol's value will never change. 


! HARD-CODED VECTOR OFFSET 
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ZSBTTL ‘INSSCREATE'; 
GLOBAL ROUTINE INSSCREATE = 
BEGIN 
1+++ 
FUNCTIONAL DESCRIPTION: 


Create a Known File onary 
If there is no Listhead for the entry being created, then create one. 


EXPLICIT INPUT: 
none 
IMPLICIT INPUT: 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

; ins$gl_ctlmsk 
INSSGL_KFECHAN 
i 
i 
i 
' 
i 
i 
' 
i 
' 
i 
i 
i 


IMPLICIT OUTPUT: 
INSS$GL_KFEADR 
ROUTINE VALUE: 


RO = return status, low bit set for success, else error status 


Address of KFE, may also have low bit set 


CAL 
ONE BLOCK, 
STATUS; 


‘ 
: Allocate buffers if needed 


ONE_BLOCK = 512; 

IF THDRBLK BUF EQL 0 

THEN ERECUTE (LIBSGET_VM(ONE_BLOCK,HDRBLK_BUF)); 

F .IHMDBUF EQL 0 

“ THEN EXECUT (LIBSGET_VM(ONE_BLOCK, IHDBUF )); 

THEN EXECUTE (LIBSGET_VM(ONE_BLOCK, ISDBUF)); 

F .BLDKFDBUF 

THEN EXECUTE (LIBSGET_VM(ZREF (KFDSC_LENGTH+NAMSC_MAXRSS) ,BLDKFDBUF)); 


STATUS = INSSEXECUTE_IN_KRNL_WITH_W_LOCK (INS_CREATE, 0); 
IF .INSSGL_CTLMSK CINS$V_NOGBLSEC) 

SIGNAL (INS$_NOGBLSEC,1,INS$GQ_KFERNS); 

IF .INSSGL_CTLMSK CINS$V_NOHDRRES) 


INSTALL's control flags Setar ing which operation to perform 
m 


a = Channel on which the known file age is open 
INS$GQ_KFEPRIVS = Address of quadword containing privilege mask for KFE 
INS$G_KFENAM = Name Block to get the dir, nam and typ strings for the KFE 
INSSGO_KFERNS = Result Name String for error messages 


Page 6 
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13 | 
INSCREATE 18-Sep-1984 01:49:49  VAX=11 Bliss-32 v4.0- p ? 
rapa INSSCREATE eae rT ee gee thet Ce rt es Pe wr 40 | \ 
; 339 | 
: 340 218 HES NSIGNAL CINS$ _NOHDRRES,1,1NS$GQ_KFERNS); 
: 43 715 5 RETURN .STATUS: | 
3 4 0716 1 END; ' Global routine INSSCREATE 
TITLE INSCREATE | 
IDENT \V04-000\ | 
.PSECT $PLITS$,NOWRT,NOEXE,2 | 
50 2F 20 68 7% 69 77 20 65 7% G1 65 72 43 20 00000 P.AAB: ASCII \ Create with /PROCESS\ ; | 
53 53 45 43 4F 52 0000F : 
0015 .BLKB 
00000015 00018 P.AAA: ‘LONG 21 , 
00000000" 0001¢ “ADDRESS P.AAB ; 
20 65 74 61 63 69 6C 70 75 44 20 00020 P.AAD: ‘ASCII \ buplicate in KFD\ ; 
44 46 0002F : 
00031 BLKB 3 
00000011 00034 P.AAC: ‘LONG 17 : 
00000000" 00038 "ADDRESS P.AAD : 


.PSECT $OWNS,NOEXE,2 
00000 ptmienel 
00004 HDRBLK_BUF : 


«BLK 
00008 IHDBUF: .BLKB 
QOO00C ISDBUF: .BLKB 


PROCESS_ERR_DSC= P.AAA 
DUPINKFB_ERR_DSC= P.A 
Bit INSSEKECUTE IN KRNL_WITH_W_LOCK 


ofr S&S 


“EXTRN INSSCNV LOCK 

EXTRN INSS$HASH, EXESALLOC 

EXTRN EXESALOPAGED. LOCSVERIF YCHAN 

-EXTRN IMGSDECODE_IHD, IMGS$GET_‘iEXT_ISD 

EXTRN LIBSGET VM; CastR RE 

[EXTRN MMGSGSDTRNLOG MMGSRET BYT_QUOTA 
SEXTRN SYSSFAO, cTLSGQ_A CREG 
TEXTRN CTLS$GL_KNOWN 

TEXTRN EXESGL— NOUN TLes 

~EXTRN EXESGL i! TNSSGL CTLMSK 

-EXTRN INSSGL-KFECHAN, INS$GQ_KFERNS 

“EXTRN INSS$GQ-KFEPRIV 

ZEXTRN INS$G_RFENAM, INSSGL_KFEADR | 
SEXTRN INSSLINTRNLERR 
-EXTRN SGN$GB NESS I? 
-EXTRN INSS_ERISTS, INS$_IMGHDR 

-EXTRN INSSTIMGTRACED, INS$_INTRNLERR 

SEXTRN INSSTHDRNOTRES, Ines, NOGBL SEC 

TEXTRN INSS"NOHDRRES, INS$_NOSHRD 

TEXTRN INSS"NOKFEFND, INS$~NOPAGEDYN 

-EXTRN INSSTSYSVERDIF, PISYSVECTORS 


inpcrRaTe 
v04-000 


16-Sep-1984 01:49:49 -VAX=11 Bliss-32 v4.0-74 | 
INSSCREATE 1eree= 38s 93:98:93 | PANS TA hes Tae Mba ge 78S... (3) 


-EXTRN SYS$K_VERSION 
| 
«PSECT $CODE$,NOWRT,2 


007¢ 0000 .ENTRY INSSCREATE, Save R2,R3,R4,R5,R6 : 0657 
56 9990009 G 00 9E a0 MOVAB LIBSSIGNAL, R6 : 
00000006 9E 0000 MOVAB INS$GQ_KFERNS, R5 : 
54 999 ' cf 9E 9019 MOVAB HDRBLK™BUF, R4 : 
53 000000006 0 H 1 MOVAB LIBSGET_VM, R3 : 
5E 0 : oor SUBL2 : | 
06 AE 0200 8F 1F MOVZWL #512, ONE_BLOCK > 0695 
4 Dd 00 5 TSTL  HDORBLK_BUF + 0696 
B 12 00027 BNEG 1 : | 
4 DD 00029 PUSHL + 0697 | 
08 AE 9F 0002B PUSHAB ONE_BLOCK : 
63 Q FB 002E CALLS #2, LIBSGET_VM : 
76 E9 00031 BLBC TATUS, 7$ : 
04 A DS 0034 1$ TSTL HDBUF + 0698 
04 A&G 9F 00039 PUSHAB IHDBUF + 0699 
08 AE 9F 0003C PUSHAB ONE_BLO ; 
63 0 FB O003F CALLS #2, LIBSGET_VM : 
65 £9 00042 BLBC US, F 
08 A& DS 00045 2$ TSTL SDBUF + 0700 
0C 12 00048 BNEQ : | 
08 A& 9F OO04A PUSHAB UF > 0701 
08 AE 9F 00040 PUSHAB ONE_BLO : | 
63 02 FB 00050 CALLS #2, LIBSGET_VM : 
54 50 £9 00053 BLBC US, ; 
FC AG DS 00056 3$ TSTL § BLDKFDBUF + 0702 
12 12 00059 BNEQ 4$ : 
FC 60AG «OOF 00058 PUSHAB BL DKF DBUE + 0703 
04 AE 0110 8F %3C 000SE MOVZWL #272, 4(SP) : 
04 AE 9F 00064 PUSHAB 4(SP5 ; 
& 02 FB 00067 CALLS #2, LIBSGET_VM : 
3D 50 £9 O0006A BLBC STATUS, 7$ : 
7E D4 0006D 4$: LRL = (SP) : 0705 
0000v CF 9F O006F PUSHAB INS_CREATE : 
060000006 00 92 FB 00073 CALLS a2, INSSEXECUTE_IN_KRNL_W1TH_W_LOCK : 
52 DO 0007A MOVL RO. STAT : 
OD 000000006 00 06 £1 0007D BBC #6. INSSGL_CTLMSK+2, 5$ : 0707 
55 DD 00085 PUSHL 5 : 0709 
01 DD 00087 PUSHL #1 ; 
000000006 BF DD 0089 PUSHL HINSS NOGBLSEC : 
3 FB F CALLS #3, LIBSSIGNAL F 
000000006 00 9 0098 5$: TSTB = INSSGL_CTLMSK+2 : 0711 | 
p 18 009 BGEQ © 6$ : 
DD 0009A PUSHL RS : 0713 | 
1 0D 0 9C PUSHL #1 ; 
000000006 8F DD 0009E PUSHL #INS$_NOHDRRES : 
66 3 FB OOOA4 CALLS #3, LTBSS1GNAL ; 
50 2 DO OO0A7 63: MOVL STATUS, R : 0715 
04 OOOAA 7$: RET : 0716 


; Routine Size: 171 bytes, Routine Base: $CODE$ + 0000 


N 13 
Woe ¢850 INSSCREATE 1228681382 93:92:48 INSTA ShES Tag hE ASE 68251 Page 53 
; 344 0717 1 


ee 1 
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Voe5000 INS_CREATE aa aet 1 95:98: 6 LINSTAL SRe INSCREATE 89231 ’ (4) | 
; § 718 1 XSBTTL 'INS_CREATE'; ; 
; 34 0719 1 ; 
H 48 6559 1 GLOBAL ROUTINE INS_CREATE = : 
: 349 721 2 BEGIN | ; 
; 0 7 ¢ lo+ : 
5 34 7 ! ; 
; 26 f 2 : FUNCTIONAL DESCRIPTION: | : 
; 354 0726 i Create a Known File entry. | : 
; 2 Bf f If there is no Listhead tor the entry being created, then create one. “ 
: 357 0709 i EXPLICIT INPUT: 
; 358 730 ! ; 
: 359 0731 ' none | : 
; 360 07 ¢ ' 3 
: e 7 7 IMPLICIT INPUT: | : 
: 36 0735 i ins$gl_ctlmsk = INSTALL'sS control flags atesoring which operation to perform | ; 
: 364 0736 2! INSSGL_KFECHAN = Channel on which the known file image is open | : 
3 36° 0737 2! INS$GQ_KFEPRIVS = Address of quadword containing privilege mask for KFE ; 
; $09 bees § } INS$G_RFENAM = Name Block to get the dir, nam and typ strings for the KFE ; 
; 368 0740 g i IMPLICIT OUTPUT: | 
; 359 ots 2 INSSGL_KFEADR = Address of KFE, may also have low bit set ; 
; $7 0744 2 { ROUTINE VALUE: | 
, 0745 ; : 
: 374 0746 ' RO = return status, low bit set for success, else error status ; 
3 Sf? 0747 ! 3 
; 376 0748 2 !--- ; 
3 Ser 0749 2 3 
; 378 0750 2 LOCAL 3 
: 379 0751 2 KFD : REF BBLOCK, : 
; 380 Or 36 § KFD_INSERT_ADR, 3 
; «381 075 HASA_ INDEX : 
; 382 0754 2 KFE = REF @BLOCK, ; 
; 383 0755 2 LENGTH, F 
: tee 0756 STATUS; , 
; 385 0757 ! | ; 
s $09 1634 Set up initial global-section-created flag for shareable image installation. | : 
: 383 Bes INSS$GL_CTLMSK CINS$SV_NOGBLSEC] = FALSE; ! Assume that /share will result in global section creation | 
: 396 076g 2 | 
3 3) O5e2 Set up initial resident header created flag. 
; 338 8702 INSSGL_CTLMSK CINSSV_NOHDRRES) = FALSE; ! Assume that /header is OK | 
: 395 Ore? 
3 + 3708 : Compute which hash table bucket Known File Entry should go into. 
; 338 $790 HASH_INDEX = INSSHASH (.INS$G_KFENAM CNAMS$B_NAME], .INSSG_KFENAM CNAMSL_NAME], 
3 130 He ; -SGN_B_KFHSHSIZ ); 
; 401 8 i Check for another version of this image already installed, that is, a file name 
: 402 0774 : that is equal and from the same device, directory and with the same file type 


SS > SS SSG <<  — NS ————ee a ae — ” | eel 


; Routine Size: 90 bytes, Routine Base: $CODES + OOAB 


; 420 0792 1 


| 
| 
é 
: 0791 | 
| 
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YOLs000 INS_CREATE 14- ~Sep-1 3B EH INSTAL. SRCJINSCREATE.B32;1 WF a) | 
: £05 73 as the one we are currently trying to install. | : 
; 405 58 STATUS = ye NSSEINO.KFE { ,HASH_INDEX, INSSG_KFENAM); ‘ 
: 406 778 IF .STATUS NEQ 0 : 
; 407 779 N $ 
; 408 780 RETURN INS$_EXISTS; : 
; 409 0781 : 
: 410 07 : ' ; 
> «411 7 1 Check if the Known File Device, Directory, Type (KFD) block exists. ; 
; rh OR ; If it doesn't, record where it should be inserted when it is created. | : 
; 18 0786 KFD = FIND_KFD (INS$G_KFENAM, KFD_INSERT_ADR); | : 
; #16 ores STATUS = CREATE (.HASH_INDEX, .KFD, .KFD_INSERT_ADR); : 
: 418 0790 2 RETURN .STATUS; | ; 
: 419 0791 1 END; ! Global routine INS_CREATE ; 
| 
001¢ 00000 .ENTRY INS_CREATE, Save R2,R3,R4 : — : 
54 000000006 00 9 00002 MOVAB INSSG KFENAM, : ; 
5E 04 C2 00009 SUBL2 j ° 
000000006 00 CO 8F 8A 0000C BICB2 #152° INS$GL_CTLMSK+2 ; 0765) : 
7E 000000006 00 9A 00014 MOVZBL SGN B_KFHSHSIZ, -(SP) : 0771) : 
4C AG DD 0001B PUSHL INSS$G~ KFENARS? : 0770 : 
7E 3B «AG 9A OOOIE MOVZBL INS$G-KFENAM+59, =(SP) : ; 
000000006 00 03 FB 00022 CALLS INSSHASH : : 
53 50 D0 00029 MOVL RO. HASH_ INDEX : ; 
18 BB 0002C PUSHR M<R3,RE> : 0777 : 
000000006 00 92 FB 000 E CALLS #2. “NSSF IND. KFE : ; 
52 0 dO 90 MOV. ~—RO,, : | : 
08 13 00038 BEQL : 0778 3 
50 000000006 8F D0 0003A MOVL #INSS$_EXISTS, RO : 0780 : 
04 00041 RET s 3 
4010 8F BB 00042 1$: PUSHR HOMcRs SP> : 0786 : 
0000v CF 02 FB 00046 CALLS : 3 
6E DD 00048 PUSHL Kb. INSERT. FADR : 0788 : 
50 DD 0004D PUSHL  KFD : : 
53 DD O004F PUSHL NASH INDEX ; : 
0000v CF 03 FB 00051 CALLS #3, CREATE 3 : 
52 50 00 00056 MOVL RO, STATUS ; : 
04 00059 RET ; ; 


3 ? ¢ 133 } XSBITL ‘create’; 

; 424 Bo 1 ROUTINE CREATE (HASH_INDEX, KFD, KFD_INSERT_ADR ) = 

> 425 £38 BEGIN 

; 426 144 lo4 

; 427 798 : 

: 428 0799 ! FUNCTIONAL DESCRIPTION: 

; 429 0800 : 

; 430 0801 ‘ Create a Known File nas ig 1 

> 431 Bang ! If there is no Listhead for the entry being created, then create one. 
3 rR 080 ' Execute in Kernel mode 

3 ¢3 bans ! 

3 tz BB08 EXPLICIT INPUT: 

; 436 O80? : HASH_ INDEX Index of Hash bucket the new KFE should be inserted in 
: 437 0808 : Device, Directory, Type block if it exists. 

; 438 0809 : KFD_INSERT_ADR Address to insert a KFD if one does not exist and 

; 439 0810 : much be built 

: 440 0811 ‘ 

3: «(441 pals § ! IMPLICIT INPUT: 

: 44 081 ! 

; 44 0814 2! ins$gl_ctlmsk = INSTALL's control hy ete tering which operation to perform 
> 444 0815 2! INSSGL_KFECHAN = Channel on which the known file image is open 
3: «4445 0816 2! INS$GQ_KFEPRIVS = Address of quadword containing privilege mask for KFE 
; rr | HEA 2 INS$G_RFENAM = Name Block to get the dir, nam and typ strings for the KFE 
: 448 0819 $ ! IMPLICIT OUTPUT: 

: 449 0820 2! 

; 450 0821 2! INS$SGL_KFEADR = Address of KFE, may also have low bit set 

> 451 pas¢ e } 

HY $26 082 2 ! ROUTINE VALUE: 

3 645 0824 2! 

> 454 0825 2! RO = return status, low bit set for success, else error status 

> 455 0826 § ! 

; 456 0827 lene 

: 457 +34 2 LOCAL 

; 458 B69 CCB : REF BBLOCK, 

; 459 0830 WCB : REF BBLOCK, 

; 460 0831 KFE : REF BBLOCK 

; ret bass 2 BLD REC BUF : $BBLOCK CKFESC_LENGTH + 39], ! Size of entry plus max size of NAM block file name field 
; 168 0834 HDR_VERSION, 

3 464 0835 ALIAS : WORD, 

> 465 tte) FSET, 

; 466 3 VBN 

: 467 0838 STATUS; 

: 468 0839 MAP 

3; 469 0840 KFD : REF BBLOCK; 

: 470 re 

3; 471 ote 

3 67 bee IF .INSSGL_CTLMSK CINSS$V_PROCESS] 

s 67 B44 THEN 

3 474 845 BEGIN 

3: 475 546 INSSL_INTRNLERR = PROCESS_ERR_DSC; é . 

; 476 84 RETURN INS$_INTRNLERR; ! replace with call to ins$pipermanent (); 
ph aa 
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; 479 0850 ! 
: ret ee Build a Known File Entry (KFE) for Later insertion into hash bucket List 
: 48 bBe§ LENGTH = wt LENGTH + .INSSG_KFENAM CNAMSB NAME); 

; 48 0854 KFE = 8 Bur ; ! Point to buffer on stack, copy to paged pool when its time to enqu | 
; 484 0855 CHSFILL (Os rE ENGTH, .KFE); i zero the KFE | 
: 48 0837 KFE CKFESW S126) = ,LENGTH; 

; 48 0858 ¢ KFE KFESB_TYPE] = DYNSC_KFE; 

; 488 085 KFE CKFESB-HSHIDX] = .HASH_INDEX; 

; 489 0860 

; $90 0861 ! 

; «491 oae8 ! $tore the file name in the KFE. There will be a posres er to the 

: re Baez device, directory and type which will be stored in a KFD block. 

: 494 0865 2 KFE CKFESB_FILNAMLEN] = _INS$6 KFENAM CNAMSB_NAME]; 

; 495 0866 2 CHSMOVE (.INS$G_K KEENAN CNAM AE - INS$G_ RrENAM’ CNAMSL_NAMEJ, 

; re | +984 E CKFEST_ PTCNAM 
: 498 0869 KFE At -HDRRES] = .INSSGL_ prLask INS$V_HDRRESJ; 
: 499 0870 2 KFE CKFESV_SHARED Db = .INS$SGL_CTLMS NS$V_SHAREDJ; 

; 500 0871 2 KFE [KFESV-PROTECT] = INSSGC-CTUMSK CINSS0 PROTECT; | 
; 501 on76 KFE CKFESV_OPEN) = .INSSGL_CTCMSK CINS$V_OPEN); 
: 502 087 KFE CKFESVNOPURGE] = .INSSGL_CTLMSK INSSV_ NOPURGE]: | 
3 303 0874 KFE CKFESV_ACCOUNT] = .INSSGL_CTLMSK CINSS$V -ACCOUNTI; 

3 ape par? KFE CKFESV-EXEONLY] = .INSS$GL~ CTUMSK INS$V~EXEONLY]; | 
; 306 0877 ¢ IF ,INSSGL_CTLMSK CINSSV_SHARED] 

: 208 + 144 § KFE CKFESV_WRITEABLE) = .INSSGL_CTLMSK CINSS$V_WRITABLE); | 
: 510 0881 2 IF .INSSGL_CTLMSK CINSS$V_SHARED] OR ! /SHARE or /HEAD implies /OPEN 
; 511 pete 2 , INSSGL_ CTLMSK CINS$V_HDRRESJ | 
3; S12 0883 2T 
3 a7 tt § NKFE CKFESV_OPEN] = TRUE; | 
; 515 0886 2 STATUS = VERIFY_CHANNEL (. eet 39 KFECHAN, CCB); ! Obtain the CCB 

; 516 0887 s IF NOT .STATUS THEN RETURN .STATOS; | 
3 ras ttt ce -CCB CCCB$L_UCB) EQL ~EXESGL_ SYSUCB ! If this is not the system device 
: 519 0890 IF .INS$SGL_CTLMSK CINSSV_PRIV) ! Then a privileged image must remain open | 
; 520 0891 THEN ! to keep a transaction against the volume | 
3; Sel 95) KFE CKFESV_OPEN] = TRUE; 

; 358 894 2 IF .INSSGL_CTLMSK CINS$V_PRIV) 

; 524 895 THEN 

. tee 896 BEGI 

; ten 0897 KFE CKFESY. PROCPRIV] = TRUE; f_installed /PRIV Z 

; 2$f Bane ati (87 INS$GQ_ XFEPRIVS: KFE CKFE$Q _PROCPRIVI)® ! copy in the privilege mask 

; 509 900 

: 530 901 ! 

s 33) 90 ! Check if the Known File Device Directory, Type (KFD) Biest exists. 

3 236 3997 } If it doesn't create it for later insertion in KFD Lis 

; 33, $9 5 2 iF .KFD EQL 0 

; 335 0906 THEN 


<-_ 
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; ; $ p90? ne BUILD _KFD (INS$G_KFENAM, .BLOKFOBUF ) 

$ 5 0309 KFE CKFESL_KFD) = .KFD; ! KFD exists and is in place 

3 229 0911 ' 

3 eh 8316 The image header is opened for a number of reasons. 

; 208 0914 IF (.KFE CKFESV_PROCPRIV) 

; 544 0915 OR .KFE CKFESV_EXEONLYJ 

; 545 0916 OR .KFE CKFESV~OPEN)) 

: 546 091 THEN 
: 547 0918 BEGIN | 
; 548 91 ! 

; 549 0920 ! Read the image header. 
; 550 0921 ! 

s $31 09 ¢ CHSFILL (0, 512, .HDRBLK_BUF); 

3 226 09 CHSFILL (0, 51 . UF); 

: 55 0924 STATUS = IMGSDECODE_IHD (.INSS$GL_KFECHAN, .HDRBLK_BUF, .IHDBUF, 

; 554 0925 3 N, OFFSET, HDR_VERSION, ALTAS): 
; 555 0926 IF NOT .STATUS THEN RETURN .STATUS; 

; 556 0927 END; 

; 557 0928 

; 558 3494 ! 

3; 339 0930 ! Verify that the ef transfer array doesn’t contain SYSSIMGSTA for 

$ 260 O33, 2 images installed with privilege or as execute_only images. 

3 206 O338 IF _ .KFE CKFESV_PROCPRIV] OR .KFE CKFESV_EXEONLY] 

; 0934 THEN 
: 564 0935 BEGIN 

; 365 0936 LOCAL | 
: 566 0937 ACTIVOFF : BBLOCK CIHASC_LENGTH], 

; 567 0938 TFRI; 
: 568 0939 3 

; 569 0940 3 ACTIVOFF = .IHDBUF + .IHDBUF CIHDSW_ACTIVOFFI; 

:; 570 0941 3 TFR1 = .(.ACTIVOFF CIHASL_TFRADR1J); ' Get first image transfer address 

3 3) B3e 3 If — EQL (PISYSVECTORS + SYS_IMGSTA_OFF)) 

3 28 0944 4 ((.TER1 = %X°80000000") EQL SYS_IMGSTA_OFF) 

: 574 0945 : HEN 

s 575 0946 RETURN INS$_IMGTRACED; 

: 576 0947 2 ND; 

; off 0948 

; 578 0949 2 IF NOT .KFE CKFESV_OPEN] | 
: 379 950 @ THE | 
; 280 0991 ,  CHSMOVE (8, INSSG_KFENAM CNAMSW_FID], KFE CKFESW_FIDJ) 
; 266 $988 : Explicit or implicit /OPEN. If /HEAD then store the image header. | 
; ob go } If /SHARE, then process the ISDs and build global sections. | 
; 565 8928 ELSE 

; 586 095 BEGIN | 
s 387 0958 OCAL 

; 288 0959 BLDHDR_LEN, ; 

; 589 0960 CRESECFLG, ! Mask of create section options , 
; 590 0961 GBLSECNAM_DSC : BBLOCK COSC$C_S BLN], ! Address of descriptor of global section name 

: 4 0366 GBLSECNAM”: BBLOCK CINSS$C_GBLRAALEN), 

; 592 096 BLDHDR : REF BBLOCK, 
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INSCREATE 18-5e 1984 01:49:49 AX-11 Bliss-32 V4.0-74 
voe000 create 12286871384 93:93:92 INSTAL SRETINGCREATE. B92: 1 
; 0964 BLDHDR_SIZ; 

> 594 4% 

: 236 096 D i t ifi i 

$ : © some image type specific processing. 

: $97 096 . : 

; 598 096 IF 

; 599 0970 4 (,ALIAS EQL IHDS$C_RSX) 

; 600 0971 3 
'; 601 b3c8 4 (.ALIAS EQL IHD$C_BPA) 

> 60 0973 3 

; 60 0974 4 (.ALIAS EQL IHDSC_ALIAS) 

; 604 0975 ; THEN 

; 605 0976 

; 606 0977 3 : 

; 607 0978 3 ! If it's not a native mode image, then set the COMPAT flag, 

; 608 0979 3 ! disallow a resident header, and store the AME type code. 

; 609 0980 3 : 

; 610 0981 4 BEGIN 

; 611 0982 4 KFE CKFESV_COMPATMOD) = TRUE; 

; 612 0983 4 IF .INS$GL-CTLMSK CINS$V_HDRRES) 

3 66) 0984 4 THEN 

; 614 0985 5 BEGIN 

; 615 0986 5 INSSGL_CTLMSK CINSSV_HDRRES) = FALSE; 

; 616 0987 5 KFE CKFESV_HDRRES) = FALSE; 

; 617 0988 5 INS$GL_CTLASK CINSSV_NOHDRRES] = TRUE; 

; 618 0989 4 ND; 

; 619 0990 4 KFE CKFESW_AMECOD] = .ALIAS; ! Store which type of AME 

; 620 0991 4 END 

; 621 0992 3 ELSE 

: ose 0993 3 

; 62 0994 3 ! If it's a native mode mage, determine if it's shareable. Also, 
; 624 0995 3 ! perform special chycxs on the header if it's going to be resident. 
; 625 0996 3 : 

; 626 0997 4 BEGIN 

; 627 0998 4 BIND 

; 628 0999 4 MINORID_DIGIT = IHDBUF CIHDSW_MINORID] : VECTOR (C2,BYTE); 

3 668 1000 4 

; $630 1001 4 LITERAL 

> 631 1002 4 MINOR_ID_TENS = IHD$K_MINORID AND 2X'FF', 

3; 63 1003 4 MINORIDONES = IHDSK"MINORID * -8; 

: 63 1004 4 

3; 634 1005 4 ‘ 

; 63) 1008 ? Determine if this image is shareable. 

; e37 1008 4 KFE CKFESV_LIM] = (.IHDBUF CIHDSB_IMGTYPE] EQL IHDSK_LIM); 

; 639 1010 4 IF .KFE CKFESV_HDRRES) 

; 640 1011 4 THEN 

> 641 1oig 4 : : 

: 666 1015 4 : The major ID in the image header must be identically equal to 
; 64 1014 4 ! the constant IHDSK_MAJORID. The minor ID in the image header 
> 644 1015 4 ! must be LEQU the constant IHDSK_MINORID. Both IDs are stored 
: 645 1918 4 ! as ASCII strings. 

; 646 1017 4 : 

3 647 1318 5 BEGIN 

; 648 101 g IF (.IHDBUF CIHDSW_MAJORID] NEQU IHDSK_MAJORID) 

3: 649 1020 THEN RETURN SS$_BADIMGHDR; 


<_ 
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ie wt i 
; 63¢ 19 ¢ § (.MINORID_DIGIT CO] GTRU MINOR_ID_TENS) 

: 3? 1058 3 er 

; 639 19 g 8 {-MINORID_DIGIT CO] EQLU MINOR, 1D_TENS) 

: 657 10 (.MINORID_DIGIT C1] GTRU MINOR NES) 

e3e i ; 2 : . C1] GTRU MINOR_ID_ONES 

: 660 1031 THEN RETURN SS$_BADIMGHDR; 

: 883 1088 | : 

; b0¢ 1034 i sof the image was Linked a ainst a SYS.STB for other than 

: 2¢: \Oe2 the current system, then t install it. 

i 666 1037 6 if _(-IHDBUF CIHDSL_SYSVERI NEQU 0) 

: 668 1039 : IF (.THDBUF CIHDSL SYSVER] NEQU SYS$K_VERSION) 

> 669 1049 THEN RETURN INS$_SYSVERDI 

: 670 1041 4 : 

: 671 1048 ; END; 

Bae Wale 

; ore ee 3 Perform some initialization of the Create and Map Section parameters 
: 676 1047 3 if .INS$GL_CTLMSK CINSSV_SHARED] =! /SHARE 

> 677 1048 3 THEN 

: 678 1049 4 BEGIN 

: 679 1050 4 LOCAL 

: 680 1051 4 1S_SHRMEM; 

a Geet Bie 

; os? He ? Init global section name 

3 685 1056 4 CHSEILL 0, INSSC GBLNAMLEN, GBLSECNAM); 

: 687 1058 4 GBLSECNAM7DSC CDSC$A_POINTER] = GBLSECNAM 

; ons 193) : INSSBLD_GBLSECNAM (GBLSECNAM_DSC); ' ‘puitd the global section name, FILENAM_nnn 


<-_ 
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y02-000 create ~8ep- 1984 93; 42: % INSTAL. SROM INSCREATE. 8 2;1 . (6) | 

; 691 1061 4 IF .KFE CKFESV_COMPATMOD] 

; 1006 4 THEN 

; 69 106 BEGIN 

; 694 1064 IF .ALIAS NEQ IHDSC_RSX 

; 695 1065 THEN 

: 696 1208 6 BEGIN 

; 697 1067 6 IF_ .INSSGL_CTLMSK CINS$V_SHAREDJ 

; 698 1068 § THEN 

; 699 1069 BEG! 

; 700 1070 7 tant eTunee RARED] =” SHARED] = FALSE; 

: oO) ions ¥ Oo Fe 

3 now im C 

70 197s 5 RETURN epee WOSHRD: 4 | 

; 704 1074 6 END; 

3 1703 1075 3 END 

; 706 1076 S ' RSX AME 

; 707 1077 6 BEGIN 

: 708 1078 6 LOCAL ; : 

; 709 1079 6 N_DSC ! number of descriptors in RSX image header 

> 710 1080 6 PAGCNT, 

s 711 1081 6 VBN; 

; ar; 1Sa6 6 

; 1083 6 ! 

; 714 1084 6 ! Would a global section that might exist for this image 

3 a ee 2 ; be in shared memory? 

Re aha 1087 6 STATUS = CHECK _SHMIDENT (GBLSECNAM_DSC, IS_SHRMEM); 

: 718 1088 6 IF NOT .STATUS THEN RET URN .STATUS; 

3; 719 1089 6 KFE CKFESV_ SHMIDENT] = .IS_ SHRMEM; ' Record SHM state 

: 720 1090 6 | 

s ei 3991 6 ! 

3: 722 109¢ 4 ' Set up the match control and IDENT for atte, sections. 

3: 723 1093 6 ! Extract the flags word from the Com on ility mode 

3; 724 1094 6 ! yaeee header and see if the TSSNHD is set. 

s 2 1095 6 ; he No_header bit is not set, ceaoe is a header, 

3 rs6 1399 ? so use the date in the header, else use 0. 

: ose 1998 ? KFE CKFESB_MATCHCTL] = ISDS$K_MATEQU; 

3 786 119 ? IF (.(. IJHDBUF + SBYTEOFFSET(LSBFLG) ) <0,16> AND TSS$NHD) EQL 0 

3 es 1106 : KFE CKFESL_IDENT] = .(. IHDBUF + SBYTEOFFSET (LS$BDAT) + ‘2) 

: 734 1104 6 KFE CKFESL_IDENT) = 0; | 

; 735 1105 6 

3; 736 1198 6 ‘ 

3 als 1122 ? Obtain VBN and Page count 

: 739 1109 6 IF .(. IHDBUF + SevTeorrart (LSBSYS) ) <0,8> NEQ 4 

; 740 1110 6 THEN RSX-11M Task, there are 7 descriptors 

3: 741 1111 6 N_DSC = 0 

3; 74 ii¢ 6 ELSE n RSX-11M task so allow for 8 ogre descriptors 

: ote 131? ° N_DSC = (8 * (SBYTEOR FSET <CsBi 18) - SBYTEOFFSET <LSBPAR))): | 

3 765 1115 6 IF (.(. IHMDBUF + SBYTEOFFSET(LSBFLG) ) <0,16> AND TSSNHD) EQL 0 

: 746 1116 6 THEN 

: 767 1117 6 ! 
| 
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| 

; 748 1118 6 ! There is a header, so figure out which type so we can 
; 749 1119 6 ! skip past the correct number of descriptors to get the 
; 731 1 » 6 VBN and PAGE COUNT. 
oe . | 
; £ ¢ 11 ¢ - BEGIN 
3 11 7 VBN = _.(. IHDBUF + SBYTEOFFSET (LS$BROB) + .N_DSC ) <0,16>; 
3 tee if : — = .(. 1HDBUF + SBYTEOFFSET (LSBROL) +” .N_DSC ) <0, 16>; ! Number of 64 byte | 
; 756 11 § § ELSE A 
3 for 11 BEGIN ! There is no header, treat as a Library Common | 
; 758 1128 7 VBN = .(.JHDBUF + SBYTEOFFSET (LS$BHRB) + «N_DSC ) <0,16> + 1; 
: 759 1129 7 PAGCNT = .(.IHDBUF + SBYTEOFFSET (L$BLDZ) )~<0,16>; ! Number of 64 byte 
: 760 1130 6 D; 
; 761 1131 6 
; 166 11 ¢ 6 : : : : | 
s 76 11 6 ! Check PAGCNT for zero. If zero, then this task was not built with a shareable 
: 764 1134 6 ! section. Don't continue here. Just report the fact that no global sections | 
; 765 1135 6 ' were created. 
; 766 1136 6 ! 
s 767 1137 6 IF .PAGCNT EQL 0 
; 768 1138 6 THEN 
: 769 1139 7 IN | 
: 770 1140 7 INSSGL_CTLMSK CINSS$V_NOGBLSEC) = TRUE; | 
; #771 1141 7 INS$SGL_CTLMSK CINSSV_SHARED] = FALSE; 
: 77 1166 7 KFE CKFESV_SHARED]) ="FALSE; 
: 77 1143 7 KFE CKFESVSHMIDENT] = FALSE; 
3: 774 1144 7 END 
: 775 1145 6 ELSE 
: 776 1146 7 BEGIN 
3; 777 1147 7 PAGCNT = .PAGCNT + 7; ! Round up to next 512 bytes 
s 778 1148 7 PAGCNT = .PAGCNT / 8; ! Divide to get page count 
3: 779 1149 7 CRESECFLG = SECSM_GBL OR SECSM_SYSGBL OR 
; ree 1339 4 SECSM_PERM; ! Create a permanent system global section | 
3 os 1138 4 IF .INSSGL_CTLMSK CINS$V_WRITABLE) 
3: «784 1154 7 CRESECFLG = .CRESECFLG OR SECSM_WRT; 
; 785 1155 7 
: «4786 1156 7 ! 
3; 787 1157 7 ! Create Global section 
; 788 1158 7 ! 
3 «6789 1159 7 
; 790 P 1160 7 STATUS = SCRMPSC ( 
; 791 P1161 7 NADR = ! Create but don't map 
: 79 p 116 7 ACMODE = PSLS$C_USER, i Access mode | 
: P1163 7 FLAGS = .CRESECFLG, ! Mask of create options : 
; 794 P1164 7 GSDNAM = mettre at ! Address of descriptor of global section name 
: 795 P1165 7 IDENT = KFE CKFESB-MATCHCTLJ, ‘ Address of quadword containing ident 
: 796 eS 1166 7 CHAN = .INSSGL_KFECHAN, ' Channel file is open on 
3; 797 P1167 7 PAGCNT = .PAGCAT, ! Number of pages in section 
; 798 P1168 7 VBN = .VBN ! Virtual block number 
3; 799 1397 7 3 
; 800 1170 7 IF .STATUS 
: 801 1171 7 N 
3 a 1106 4 KFE CKFESW_GBLSECCNT) = 1 
: 804 1174 7 RETURN .STATUS; ! Report global section creation failure 


<_—_ 
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Vouc000 create 12: pep 1984 93:93:98 INSTAL. SRCJINSCREATE. 3 2:1 yet (6) V! 
: 1175 g ! Compat with RSX AME 
: 1176 END; 
; B09 1177 5 END ! Shared COMPAT 
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; 809 1178 5 : 
; 810 1179 4 ELSE : 
: 811 1180 4 ! : : 
; \¢ 1181 4 ! Shared Native mode image : 
: 81 11 ¢ 4 ' F 
: 814 11 2 BEGIN ; : 
> 815 1184 CRESECFLG = 0; ! Mask of create options ‘ 
; 816 1185 5 3 
; 817 1186 5 ! : : 
; 818 1187 2 : Determine the Ident and Match control to use if gional sections ; 
; 819 1188 ! are to be created. Store in quadword GBLSEC_MATCH_IDENT with : 
3 gs 138% 2 } Ident in second lLongword. : 
3 bse 1191 5 KFE pRc ese PAT CHCTL = ISO$K_MATEQU; ! Default, assuming not shareable im ; 
$ Ht 1336 5 KFE CKFESL_IDENTJ = .IHDBUF CIHD$L_IDENT); ! Use Header ident as default ident ; 
: 824 1193 5 IF .KFE CKFESV_LIMJ ! Is it a shareable image? : 
; tH 1194 5 THEN : 
; 826 1195 6 BEGIN ; 
; 827 1196 6 IF _ .IHDBUF CIHDSV_MATCHCTL) EQL 0 : 
; 828 1197 6 THEN 3 
; 829 1198 6 KFE CKFESL_IDENT) = 0; ! Match always ; 
; 830 1199 6 KFE CKFESB_MATCHCTL] = .IHDBUF CIHDSV_MATCHCTL]; : 
s #831 1200 5 ; 3 
; S36 1201 5 3 
; 83 1608 5 ! , 3 
: 834 1203 5 ! Check if image is in shared memory ; 
: tH 1g08 2 This will affect the ident and match control | : 
: 837 1206 5 STATUS = CHECK_SHMIDENT (GBLSECNAM_DSC, IS_SHRMEM); : 
; 838 1207 5 IF NOT .STATUS THEN RETURN .STATUS; ; 
; 839 1208 5 KFE CKFESV_SHMIDENT] = .1S_SHRMEM; . 
; 840 1209 5 IF .IS_SHRMEM AND NOT .KFECKFESV_LIM) : 
: 841 1210 5 THEN 

: 842 1211 6 BEGIN 

; «6843 isi¢ 6 ! ‘ 

> B44 1213 6 ! If its been patched, use patch date as ident, 

; 845 1214 6 ! else use date in Image Header Ident 

3; 846 1215 6 ! 

: 847 1216 6 KFE CKFESL_IDENT) = 

; 848 1217 7 (IF .IHDBUF CIHD$W_PATCHOFF] EQL 0 

3; 849 1218 7 THEN 

: 850 1219 8 BEGIN 

: 851 1220 8 BIND 

: 832 1¢¢1 8 1M = ,IHDBUF + ; JHOBUF CIHD$W_IMGIDOFF] : BBLOCK; 

3 85 1 : 9 .(IH] CIHI$Q_LINKTIME) + 2) 

; 854 1223 8 END 

> 855 1224 7 ELSE | 

; 856 1225 8 BEGIN 

3; 857 1226 | BIND 

; 858 1227 IHP = .IHDBUF + .IHDBUF CIHDSW_PATCHOFF] : BBLOCK; 

> 859 1228 9 .(IHP CIHP$Q_PATDATE) + 2) 

; 0 1229 8 END 

: 861 1230 6 ); 

; 86 1231 KFE CKFESB_MATCHCTL] = ISDSK_MATEQU; 

: $6 1 3 END; 

; 864 123 wha 

3; 6865 1234 4 END; ! Initialize for SHARED not COMPAT 
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VOa-060| create 18a86p-198e 92:98:93 HINSTALSSRESINSchEATE-692;1 toe 


: B66 133? ; 3 ! Initialize for /SHARE 


a WERE GUERA UNSTAMESTRREAETHoyP 


3 : 3 leee | 
. ' 

: i 33 : Save header if its to be made resident | 
: 1241 i ses 

3 1 tS 
: 134 IF .KFE CKFESV_HDRRES) | 
3 1244 THEN 

: 1245 4 

; 1246 4 BLOHDR_LEN = 512; 

; Ht +4 : EXECUTE(LIBSGET_VM (BLDHDR_LEN, BLDHDR)); | 
: 1345 : CHSFILL (0, .BLDHDR_LEN, .BLDHDR); ! zero the buffer 

: 1251 4 CHSMOVE (, IHDBUF CIHD$W_SIZEJ, .IHDBUF, .BLDHDR); 

3 1526 4 BLD R_SI2 = .]HDBUF CIADSW_ SIZEJ]; 

; 1254 3 
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IF NOT .KFE CKFESV_COMPATMOD) 
THEN 


BEGIN 


lee4 
! 


| ISD processing Loop 


'444 


CHSr IU, (0, 512, 
STA = 


F 
WHILE (STATUS 
VBN, OF 


E 
1S 


- 1SDBU 
IMGSGET 
FSET, .1 


IF_.KFE CKFESV_HDRRES 
THEN | 
Concatenate t 
BEGIN 
IF .BLDHDR_SIZ + 
THEN 


BEGIN 
LOCAL 
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18- -$ep-1984 01:49:49 AX-11 Bliss-32 V4.0- 
; OF: 92: 6 INSTAL.SRCJINSCREA 


14-Sep-1984 


); 
NEXT 1S ISD. (. INS$GL KFECHAN, -HDRBLK_BUF, .IHDBUF, 


R_VERSION) ) 
J 
his ISD onto stored header 


-ISOBUF CISD$W_SIZEJ] GTR .BLDHDR_LEN 


NEW_BLDHOR, 
NEW-BLDHDR. LEN; 


NEW BLDHDR_LE 


N = 2 * ,BLDHDR 


EAGETLE eso ve (NEW LBLDHOR eh iN, NEW_BLDHDR)); 


FILL (0 
CHSMOVE 
EXECUTE (List 
BLDHD E 


BLDHDR LEN = 
END; 


CHSMOVE (.ISDBUF 
et LDH DR_SIZ = .BLDHD 


ND; ! If /HEA 


NE@_BLD LEN, .NEW_BLDHDR); 
DHDR ait ORAL DHO NEW tBLDHDR) ; 
REE “VM (BLDHDR ten: NBLDHDR)) 


HOR; 
S NEW BLOHDR LEN; 


ey SIZE], .ISDBUF, (.BLDHDR + .BLDHDR_SIZ) ); 


7+ .1SpBUF CISD$W_SIZE); 
D then save this ISD 


te b82:1 
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; 930 129 : 

; 2 1 ! 3% If /SHARE then create global sections for the images private sections 

3; 9 g 1299 IF_.INSSGL_CTLMSK CINSS$V_SHAREDJ ! /SHARE 

ss. 1500 THEN 

; 935 1301 6 BEGIN 
3; ¥ 8 1 8 6 BIND 
; 4 ‘ ! 87 6 ISD = .ISDBUF : BBLOCK; 
; 939 1305 ) IF NOT (.1SD CISD$V cal} OR .1SD CISD$V_DZRO) 
; 940 1306 7 OR .ISD CISD$vV_CRFIJ) 

; 941 1307 § THEN 

; 94 1306 REGIN 

; 94 1309 7 LOCAL 

> 944 1310 7 RETADR : BBLOCK (8); 

; 945 1311 7 

; 946 1316 7 CRESECFLG = .ISDBUF CISDSL_FLAGS] AND ISDSM_WRT; 

> 947 isis £ CRESECFLG = .CRESECFLG OR SECSM_GB 

3 oes 1313 OR SECSM_SYSGBL OR SECS$M_PERM; ! Create a permanent system global section 

; 950 1516 7 IF .ISDBUF CISD$V_PROTECT] OR 

; 951 1317 8 (.KFE CKFESV_PROTECT] AND NOT .ISDBUF CISD$V_WRTJ) 

; 326 1318 7 

; 95 1319 8 BEGIN 

; 954 1320 8 CRESECFLG = .CRESECFLG OR SECSM_PROTECT; 

3 Yoo 1321 8 CRESECFLG = .CRESECFLG OR PSLSC_EXEC * (S$BITPOSITION(SECSV_WRTMOD)); 
; 956 1358 7 END; 
; 957 1323 7 

; 958 P1304 7 STATUS = SCRMPSC ( 
; 959 P 1325 7 DR = ! Create but don't map 

; 960 P 1326 7 RETADR = RETADR, ! Create but don't map 

; 961 P 1327 7 ACMODE = PSLS$C_USER, ' Access mode 

; 96 P 1328 7 FLAGS = .CRESECFLG, ! Mask of create options . 

; p 1362 7 GSDNAM = GBLSECNAM_DSC ! Address of descriptor of global section name 

> 964 P 1330 7 IDENT = KFE CKFESB-MATCHCTLJ, : Address of quadword containing ident 

; 965 P 1331 7 RELPAG = 0 ! Create, don’t map 

: 966 P 133¢ ¢ CHAN = .INSSGL KFECHAN. i Channel file is open on. 

: 967 P1333 7 PAGCNT = .ISDBOF CISD$W_PAGCNTJ,! Number of pages in section 

; 968 P 1334 7 VBN = .ISDBUF CISOS$L_VBNI, ! Virtual block number 

; 969 P 1332 7 PROT = 0, ! Default protection mask , 

; 970 P 1336 7 '! want to ignore PFC if cross Linker format 

; 971 P 1332 PFC = .ISDBUF CISD$B_PFCJ ! Page fault cluster size 

; 1339 7 IF_.STATUS 
; 1340 7 THEN { 
; 1341 8 BEGIN 

: 13 g NS SELD GBLSECNAM (GBLSECNAM_DSC); ! Increment for the next global section name 
; 134 KFE CKFESW_GBLSECCNT) = .KFE~CKFESW_GBLSECCNT) + 1; | 
5 Fe END 
; 1345 ELSE 

3 1346 7 _ RETURN .STATUS; 

: 1347 6 ND; 

; 13 3 END; ! End of processing this ISD for /SHARE 

; 1350 CHSFILL (0, 512, .ISDBUF); 

3 i; ? END; ! While getting ISD's 
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; 987 1353 5 IF NOT .STATUS AND (.STATUS NEQ IMG$_ENDOFHDR) 

; 988 1354 4 THEN 

; 989 1355 2 BEGIN 

; 990 1 8 RETURN .STATUS; 

i 39) 138% _ 

; 99 1359 5 IF .INSSGL_CTLMSK CINSS$V_SHARED] AND (.KFE CKFESW_GBLSECCNT] EQLU 0) 

: 994 1360 4 THEN 

: 995 1361 5 BEGIN 

; 996 1 °6 INSSGL_CTLMSK inssv .NOGBL SEC) = TRUE; 

: 997 136 INSSGL_CTLMSK LINSSV_SHAREDJ = FALSE; 

; 998 1364 KFE CKFESV_SHARED) ="FALSE; 

; 999 1365 KFE CKFESVSHMIDENT] = FALSE; 

: 1000 1366 4 END; 

; 1001 1367 4 

; 100¢ 1368 4 IF .KFE CKFES$V_HDRRES) 

; 100 1369 4 THEN 

: 1004 1370 4 ! 

3; 1005 1371 4 ! Make the header resident 

: 1006 13/6 4 ! 

; 1007 1373 (5 BEGIN 

; 1008 1374 5 LOCAL 

3; 1009 1375 5 KFRH : REF BBLOCK; 

: 1010 1376 5 

; 1011 1377 5 LENGTH = KFRHSC_LENGTH + .BLDHDR_SIZ + 4; ! Leave longword of zeros to mark end 
: 1olg 1378 5 EXECUTE(ALLOC_PAGED ( .LENGTH, KFRH )); 

3 HF 1303 : CHSFILL (0, .CENGTH, .KFRH); ! zero the KFRH 

3 1015 1381 5 KFRH CKFRHS$W_ALIAS] = .ALIAS; 

: 1016 1336 5 KFRH CKFRH$W_SIZEJ] = .LENGTH; 

; 1017 1383 5 KFRH CKFRHSB-TYPE] = DYNSC_KFRH; 

: 1018 1384 5 FRH_CKFRH$B-HDRVER] = .HDR VERSION; 

3; 1019 1385 5 KFE CKFESL_IMGHDR) = KFRH CRFRHS$T_IHD); 

; 1020 1386 5 CHSMOVE (.BLDHDR S17, -BLOHDR, KFRH CKFRHST_IHD]); 

; 1021 1387 5 KFRH CKFRHS$L_BUFEND) = KFRH CKFRH$T IHD] + <BLDHDR_SIZ; 

z 1022 1388 5 EXECUTE (LIBSFREE_VM(BLDHDR_S1Z,BLDHBR)); 'Deallocate the header 
: 1023 1389 4 END; 

3 1OS¢ 1330 3 END; ! /OPEN but not COMPAT 

3 1958 1336 5 KFE CKFESW_SHRCNTJ = 1; ! Initialize shared counter (normalized on display) 
; 1087 139 WCB = .CCBCCCBSL_WINDJ; i window address 

; + : 1338 KFE CKFESL_WCB) = .WCB; ! Save window address 

; 1980 1396 This call is effectively a no-op if any global sections had been created 
; 13% 1398 MMGSRET_BYT_QUOTA (.WCB); ' Return byte quota since file was being opened for everyone 
> 103 1399 3 WCB CWCBSW_REFCNT) = .WCB CWCBSW_REFCNT) +1;! jimmy window so the shared 

3; 1034 1400 ! file remains open. 

; 133? 163 END; 

: 1037 1408 STATUS = ENTER_KFE (.KFE, .HASH_INDEX, .BLOKFDBUF, .KFD_INSERT_ADR); 

; 1039 1405 RETURN .STATUS; 

: 1040 1406 1 END; ' routine CREATE 
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1984 01:49:49 AX-11 Bliss-32 V4.0 
ats 93392 '4¢ INSTAL.SRC INSCREATE . 5 2:1 


-EXTRN SYSSCRMPSC 


: .WORD 5388 2 R2 R3, Rs R5,R6,R7,RB,RI,R10,R11 
MOVAB 
BBC sry. CTL 
MOVAB procs 
OVE #INS$_IRTRNCERR, 


RE 
MOVZBL INSSG. ren R7 
MOVAB ore 


1$ 
5_ERR psc “Inst. INTRNLERR 


MOV ap SEF KFE 
moves re “(SPy, #0, LENGTH, (KFE) 
MOV LENGTH Bie 


MOVB #4, 
MOVB HASH INDEX 11(KFE) 


EXTZV #6, #1, “INSSGL CTLMSK+1, R1 
EXTZV “, "i. Inssce CTLMSK+2, RO 


wi, (R 
INSV INSSGL_CTLMSK+2, #0, #1, (R7) 


EXTZV #5, #1, INSSGL_CTLMSK+1, R2 


INS Re. 3. 

EXTZV #3. #1. INSSGL_CTLMSK+2, R2 
INSV R2. #0, 

EXTZV #4, #1. INSSGL_CTLMSK+2, R2 
INSV Re. #9. #1, (RT) 

EXTZV #5. #1. INS$GL_CTLMSK+2, R2 
INSV R2. #11, #1, (RZ) 

BLB RO, 


C 
EXTZV #2. #1 INSSGL CTLMSK+2, R2 
INSV R2, #10, #1, (RZ) 


BLBS STATUS, 5$ 


BRW 
cMPL CCB, EXESGL_SYSUCB 
TSTB =—sINSSGL_CTLMSK+1 
BGEQ $ 
BISB2 #8, (R7) 
TSTB INSSGL_CTLMSK#1 
GEQ $ 
BISB2 #4, (R7) 
MOVC3 #8. INSS$SGQ_KFEPRIVS, 32(KFE) 
TSTL = KFD 
BNEQ 


8$ 
PUSHL BLDKFDBUF 
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INSCREATE 16-Sep-1984 01:49:49 AX-11 Bliss-32 V4.0-74 Page 27. 1 
v04-000 create 13=808- 1382 93:98:92 INSTAL. SRCJINSCREATE.B32;1 . (10) | V 
000000006 9F 00117 PUSHAB INS$G_KFENAM P | : 
0000v CF oe re a CALLS 2, BOILD_KFD : | : 
oC A 08 AC 00 00124 8$: MOVL KFD, 12(KFE) : 0909 ; 
08 a 05 E0 $ 9 9$: BBS #2 (Rd) 10$ ; at ; 
04 67 08 E0 4 D BBS wii, (R75, 10$ + 0915 ; 
B 67 FI 131 BBC #3, °(R7), 11$ + 0916 F 
0200 28F 00 6E soni 00 C 4 3 10$ mOVCS #0, (SP), #0, #512, @HDRBLK_BUF + 0922 : 
0200 8F 00 bE 00 2¢ 0013F MOVCS #0, (SP), #0, #512, @IHDBUF + 0923 ; 
vast RE OF 6129 PUSHAB ALIAS ? 0926 
8 AE 9F 0014C PUSHAB HDR_VERSION : 3 
1C AE OF OO14F PUSHAB OFFSET : : 
24 AE OF 0019¢ PUSHAB VBN : ; 
7E 0000" CF 7D 0015 MOVQ HDRBLK_BUF, -(SP) : ; 
000000006 60 DD 0015A PUSHL INSS$GL~KFECHAN : : 
000000006 00 07 FB 00160 CALLS #7, IMGSDECODE_IHD : ; 
SA 50 pO 00167 MOVL * STATUS ; : 
03 SA ES 0016A BLBS STATUS, 11$ + 0926 ; 
044A 31 0016D BRYW 63$ : ; 
04 67 02 £0 00170 11$: BBS #2, (R7), 12 > 0933 : 
2c 67 OB €E1 00174 BBC wii, (R75, 14$ : ; 
50 0000" CF DO 00178 12$: MOVL HDBUF, RO + 0940 ; 
51 02 AO 3¢€ 00170 MOVZWL 2(RO), R : : 
5C AE 50 51 C1 00181 ADDL3. R1, RO, ACTIVOFF : : 
50 5¢ BE bO 00186 MOVL  @ACTIVOFF, TFR1 + 0941 ; 
000000006 &F 50 D1 0018A CMPL  _=TFR1, #PISYSVECTORS+360 + 0942 ; 
09 13 00191 BEQL 13$ : ; 
80000168 8F 50 D1 00193 CMPL  TFR1, #-2147483288 + 0944 ; 
08 12 0019A BNEQ 14$ : ; 
50 000000006 &F BO 0019¢ 13$: MOVL #INSS_IMGTRACED, RO + 0946 : 
oc 67 03 £0 OO1A4 14%: BBS #3, (R7), 15$ > 0949 ; 
18  A8 000000006 00 08 ¢8 001A8 MOVC3 #8. INSSG_KFENAM+36, 24(KFE) > 0951 ; 
03F2 31 00181 RW 62$ : ; 
58 08 AE 3¢ 00184 15$:  MOVZWL ALIAS, R11 : 0970 ; 
OA 13 001B8 BEQL 16$ : F 
01 58 B1 O01BA CMPW SsiéRV1, #1 : 0972 ; 
5 13 001BD BEQL 16$ : ; 
02 58 61 001BF CMPW 311, #2 > 0974 : 
25 12 001C2 BNEQ 18$ : ; 
67 80 8F 88 001C4 16$:  BISB2 #128, (R7) : 098 : 
13 000000006 00 06 1 O1c8 BBC #6. INSSGL_CTLMSK+1, 17$ : 098 ; 
000000006 00 40 8F 8A 00100 BICB2 #64, INS$GC_CTLMSK+{ ; 0986 ; 
67 10 8A 00108 BICB aig (R7) : 0987 ; 
000000006 00 80 8F 88 001D BISB2 #128, INSSGL_CTLMSK+2 : 0988 : 
2A AB 5B BO OO1E3 17$:  MOVW R11, 42(KFE) : 0990 ; 
4D 11 OO1E BRB 22$ : 0969 : 
50 0000" CF DO 001E9 18%: MOVL THDBUF RO : 0999 ; 
51 OE AO 9E Ole MOVAB 14(RO). RI ; : 
52 D4 OOTF CLRL Re > 1008 ; 
02 11 AO 91 0014 (MPR =s«17(RO), #2 : ; 
9 12 001F8 BNEQ 19$ : : 
06 O1FA INCL Re ; : 
67 01 01 52 FO OO1FC 19S: INSV 2, #1, #1, (R7) : : 
1 67 04 €1 00201 BBC #4. (R?), 228 + 1010 : 


15 
INSCREATE 18-se -1984 01:49:49 AX-11 Bliss-32 V4.0-74 Page 28 1 
vous000 create 107388-1382 93:92:93 LINSTAL SRC INSCREATE.B32;1 : 16) Vv 
3230 8F 0c Ad B1 00205 CMPW 12(RO) #12848 : 1019) ; 
0D if 0B BNEQ 20$ : i 
30 1 9 0D CMPBs«(R}1), #48 + 1023 ; 
8 1A 19 BGTRU 208 : ; 
B 12 0021 BNEQ 1$ + 1026 : 
35 01 Al 91 00214 CMPB Ss«a1(R1), #53 : 1028 F 
09 1B 00218 BLEQU 21$ : ; 
50 44 BF eA 0 1A 20S: MOVZBL #68, RO + 1031 ; 
28 AO D3 O21F 218: TSTL 40(RO) : 1037 F 
12 13 00222 BEQL 22$ : ; 
000000006 8F 28 Ad D4 00 4 CPL 4O(RO), #SYSS$K_VERSION + 1039 ; 
50 000000006 8F BO O0ceE MOVL —-#INSS_SYSVERDIF, RO ; 1040 ; 
22 000000006 00 01 gi 00 36 22$: BBC #1, INSSGL_CTLMSK+2, 24$ + 1047 ; 
2B 00 6E - 00 C 00 35 MOVCS #0, (SP), #0, #43, GBLSECNAM + 1056 ; 
68 AE D4 09948 CLRL_ GBLSECNAM_DSC : 1057 F 
6C AE 3C = AE «O9E «(00248 MOVAB  GBLSECNAM, GBLSECNAM_DSC+4 : 1058 ; 
68 AE 9F 00240 PUSHAB GBLSECNAM_ DSC : 1059 ; 
0000v CF 01 FB 00250 CALLS #1, INSS$SBCD_GBLSECNAM ; 3 
67 95 00255 TSTB. ~—s- (RP?) + 1061 ; 
03 19 00257 BLSS 3$ : : 
OODA 31 00259 BRW 7$ : ; 
5B D5 0025C 238: TSTL = R17 + 1064 : 
1D 13 0025 BEQL 26$ : ; 
03 000000006 00 01 £0 00260 24$: BBS #1, INSSGL_CTLMSK+2, 25$ + 1067 ; 
013B 31 00268 BRW 4$ : ; 
000000006 00 02 8A 00268 25$:  BICB2 #2, INSS$GL_CTLMSK+2 : 1070 : 
67 20 BA 0072 BICB2 } + 1071 ; 
50 000000006 8F DO 0027 MOVL § #INS$_NOSHRD, RO + 1073 : 
04 0027¢ RET : : 
10 AE 9F 0027D 26$: PUSHAB IS_SHRMEM : 1087 ; 
6C AE 9F 00280 PUSHAB GBCSECNAM_DSC : : 
0000v CF 02 FB 00283 CALLS #2, CHECK~SHMIDENT : : 
SA 50 DO 00288 MOVL RO, Tus 3 3 
03 SA Es 00388 BLBS STATUS, 27$ : 1088 3 
0329 31 0028E BRW ; : 
67 01 06 10 AE FO 00291 27s: INSV  IS_SHRMEM, #6, #1, (R7) : 1089 : 
28 «AB 01 90 00297 MOVB #1, 4O(KFE) : 1098 : 
50 0000" CF 00 00398 MOVL -IHDBUF, RO : 1100 : 
52 D4 002A0 CLRL = R2 : : 
09 18 «AO 05 EO 99 Ae BBS #14, 24(RO), 28% : 3 
D6 002A INCL Re : : 
2c AB 1¢ AO DO 002a9 MOVL 28(RO), 44(KFE) : 1102 : 
03 11 OO2AE BRB 29$ ; : 
2c «AB «ODS 0028 288: CLRL 44(KFE) > 1104 : 
04 15 AO 91 00283 29S: CMPB gi RO), #4 + 1109 : 
94 13 0028 BEQL 0$ ; 3 
1 04 00289 CLRL N_DSC > 1111 : 
04 11 00288 BRB 3T$ ; : 
51 EO ef 9A 002BD 39$ MOVZBL #224, N_DSC ; 1133 3 
51 9 CO 002c1 31$ ADDL2. RO, R1 + 112 : 
0c 52 £9 002C4 BLBC R2. 32$ ; : 
52 00F4 C1 3¢ 002C7 MOVZWL : 4¢R1), VBN ; ; 
51 00F6 C1 3 O02CC MOV2WE 346(R1). PAGCNT : 1126 | : 
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INSCREATE 1h-s2 =1984 01:49:49 AX-11 Bliss-32 V4.0-74 
v04=000 create 12-8 08- 1382 93:92:92 INSTAL SRELINGCHEATE 68251 
28 OA 1 90 003A2 MOVB = #1, GO(KFE) 
2D é 4 €1 A6 44$: BBC 4° (R7), 45$ 
24 AE 0200 8F 3C OO3AA MOVZWL #512, BLOHDR_LEN 
¢ AE 9F 00 80 PUSHAB BLDHOR 
AE 9F 0038 PUSHAB BLDHDR LEN 
000000006 00 g rB B6é CALLS #2, LIB GET_VM 
A ; BD BLBC STATUS, 4 
24 AE 00 6E = 00 ¢ 0 C0 MOVCS #0, (SP), #0, BLDHDR_LEN, @BLDHDR 
2c so#BE 0000" oF 0000" DF 28 00 8 MOVC3 @IHDBUF, @IHDBUF, @BLDHDR 
30 AE 0000" oF 0301 MOV2WL @IHDBUF, BLDHDR_ 
67 0 (* 45$: TSTB ss (R7”?) 
3 4 b BGEQ 46$ 
O1AC 31 0306 BRW 61$ 
0200 8F 00 6E 00 2c 00 DE 46$: MOVCS #9, (SP), #0, #512, aISDBUF 
0000" oF 003 
6£ 0000" CF 00 00368 MOVL ISDBUF, (SP) 
OC AE DD 00 ED 47$: | PUSHL HDR VERSION 
04 AE DD 00 FO PUSHL  4(SP) 
1C AE OF 00 F PUSHAB OFFSET 
24 AE SF 003F6 PUSHAB VBN 
7E 0000' CF 7D 003F9 MOVQ HDRBLK_BUF, -(SP) 
000000006 00 DD OO3FE PUSHL INS$GL~KFECHAN 
000000006 00 07 FB 00404 CALLS #7, IMGSGET_NEXT_ISD 
SA 50 DO 00408 MOVL RO, STATUS 
03 5A Es 0040 BLBS § STATUS, 48$ 
00F7 31 00411 BRW 
66 67 04 f 00414 48$: BBC #4, (R7), 538 
50 0000" DF 3C 00418 MOVZWL a@lSDBUF, 
50 30 AE CO 0041D ADDL2 BLDHDR $1Z, RO 
24 «OA 50 D* 00421 CMPL RO, BLBHDR_LEN 
40 15 00425 BLEG 4 6=s-« 552 
20 AE 24 «AE 01 78 00427 ASHL #1, BLDHDR_LEN, NEW_BLDHDR_LEN 
1¢ AE OF 00420 PUSHAB NEW_BLDHDR 
24 AE 9F 00430 PUSHAB NEW-BLDHDR_LEN 
000000006 00 08 FB 00433 CALLS #2, LIBSGET_VM 
iC a E9 004 A 49$:  BLBC TATUS, 50$ 
20 AE 00 6E a 00 C 0045p MOVCS #0, (SP), #0, NEW_BLDHDR_LEN, @NEW_BLDHDR 
1c «BE 2c «BE 30 AE 28 00445 MOVC3. BLDHDR_SIZ, @BLDHDR, @NEW_BLDHDR 
2¢ «AE OOF «00440 PUSHAB BLDHDR 
28 AE OF 0044F PUSHAB BLDHDR LEN 
000000006 00 02 FB 00452 CALLS #2, LIBSFREE_VM 
01 5 8 0499 50$: BLBS STATUS, 51$ 
4 0045¢ RET 
C AE 1¢ AE 00 00450 51$:  MOVL = NEW_BLDHDR, BLDHDR 
4 AE @ AE DO 0046¢ MOVL_ NEW"BLDHDR.LEN, BLDHDR_LEN 
50 C AE 0 AE C1 00467 52$:  ADDL3  BLDADR $127 BLOHDR, RO 
60 0000" DF 0000' oF ¢8 O46p MOVC3 aISDBUF, ai sDBUF. (RO) 
0 0000" oF ¢ 04 MOVZWL a _R 
30 AE 50 (CO O047A ADDL2 RO, BLDHDR_SiZ 
74 000000006 01 €1 0047E 53$: BBC ¢ INSSGL“CTLMSK#2, 58$ 
0 0000" CF 00 004 MOVL SOBUF, R 
6 08 AO €E8 004 BLBS (RO), 58$ 
08 A EO 0048F BBS #2, ind), 588 
61 08 Ad EO 00494 BBS #1. 8(RO). 58$ 
08 AO FFFFFFF7? 8F CB 00499 BICL3 #9, 8(ROS, CRESECFLG 
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INSCREATE 1b-Se =1984 01:49:49 AX-11 Bliss-32 V4.0-74 p 1) 
HOas0B0 create 127808- 1382 93:92:92 INSTAL. SRCJINSCREATE .B32;1 ead? 4 
59 C001 8F AB 004A BISW2 #49153, CRESECFLG 3 1314 
08 OA AO oe 0 ray, BBS #2 Hing). Ef : 1316 
0c 67 E9 004AC BLBC (R?), 55 ¢ 1517) 
07 08 Ad 03 E GAF BBS a §<R0) 55$ : 
59 00040040 F : 04B4 548: BISL2 # 62 08, CRESECFLG ; 1321 
7E 07 AO 9A O4BB 5$:  MOVZBL 7(RO), -(SP) : 1338 
7E D4 O04BF CLRL = = (SP) : 
A BD O4c PUSHL  12(RO) : 
7E AO 3C 004C4 MOVZWL 2(RO), -(SP) : 
000000006 00 dd O4c8 PUSH. INSS$GL_KFECHAN : 
re D4 004C¢ CLRL. = = (SP) : 
8 A OF ek PUSHAB 40(KFE) : 
AD 9F 004D PUSHAB GBLSECNAM_DSC : 
59 DD 00406 PUSHL CRESECFLG : 
03 DD 00408 PUSHL #3 : 
SC AE 9F OO4DA PUSHAB RETADR : 
7E D4 00400 CLRL = =(SP) : 
000000006 09 OC FB O04DF CALLS #12, SYSSCRMPSC F 
SA 50 DO 004E6 OVL RO, STATUS : 
03 SA Es 04E9 BLBS STATUS, 57$ : 1339) 
00CB 31 O04EC 56S BRW 63$ ; 
68 AE 9F OO4EF 57$ PUSHAB GBLSECNAM_DSC + 1342 
0000v CF 01 FB O04Ee CALLS #1, INSSBCD_GBLSECNAM : 
12 AB B6 O04F INCW  18(KFE) + 1343 
6E 0000' CF DO OO4FA 58$: MOVL ISDBUF, (SP) : 1350 
00 6E 00 2C OO4FF MOVCS #0, (SP), #0, #512, a0(SP) ; 
00 BE 00506 : 
FEE2 31 00508 BRW 47$ + 1266 
084D8640 = BF SA D1 00308 59$: CMPL STATUS, #139298368 : 1353) 
D8 12 0051 BNEQ 56$ : 
18 000000006 00 01 €1 00514 BBC #1, INSSGL_CTLMSK+2, 60$ : 1359 
12 A8 B65 0051C TSTW 18(KFE) s 
13 12 0051F BNEQ 60$ : 
000000006 00 40 8F 88 00521 BISB2 #64, INSSGL_CTLMSK+2 : 1362 
000000006 00 02 BA 00529 B1CB We IMSS$SGL_CTLMSK+2 : 136 
67 60 8F 8A 00530 BICB2 #96, (R7) : 1365 
52 67 04 €1 00534 60$: BBC #4, (R7), 61$ : 1368 
56 30. AE 10 €1 00538 ADDL3. #16, BLDHDR_SIZ, LENGTH : 1377 
28 «AE OOF 00530 PUSHAB KFRH : 1378 
56 DD 00540 PUSHL LENGTH : 
0000v CF 08 FB 00540 CALLS #2, ALLOC_PAGED : 
73 50 £9 0054 BLBC STATUS, 62$ : 
57 28 AE DO 0054A MOVL KFRH, R7 : 1379 
00 6E 0 2c 0 248 MOVCS #0, (SP), #0, LENGTH, (R7) : 
04 A? 3B 80 00554 Movw RTT, 4CR7) ? 1381 
08 A? tT 80 58 MOVW LENGTH 8(R7) : 138 
OA A? 26 055¢ MOVB #38, 16(R7) : 138 
0B =A? C AE 90 060 MOVB HDR VERSION. 11(R7) : 1384 
1c AB = 3 056 MOV 12(R7), 28(KFE) > 1385 
0c a? 2¢ a 0 AE 2 056A MOVC3 BLDHDR.SIZ, @BLDHDR, 12(R7) : 1386 
50 2. 2 a 3 1 ADDL 2 DHDR7SI2, R7, R : 1387 
67 C AO 9E 00576 MOVAB (RO)? (RP) : 
C AE OF O97, PUSHAB BLDHDR : 1388 
000000006 ' 09 Pe bosap CALS. BOT PABST REE._VvM 
ee g 8 §380 LBC = STATUS, bas . ; 
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Routine Base: $CODE$ + 0105 


1 


1470 bytes, 


1407 


; Routine Size: 


; 1041 
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1b-Sep-1984 01:49:49  VAX=11 Bliss-32 v4.0- 
1a-8ep 03:93:92 


INSCREATE 74 
v04- -Sep-1984 INSTAL. SRCJINSCREATE .B52; 1 


alloc_paged Allocate memory from paged pool 


; 1963 1008 } RSBTTL ‘alloc_paged Allocate memory from paged pool'; 

: 1045 1410 1 ROUTINE ALLOC_PAGED (LEN, ADR) = 

3 bg 1411 BEGIN 

3 104 1o16 lo+ 

: 1048 141 ' 

3: 1049 1414 ' FUNCTIONAL DESCRIPTION: 

; 1050 1415 : 

: 1051 1416 : Jacket routine for calling paged pool allocation routine. 
3 1928 1417 : Specify the length of block required and get the address of 
: 105 1418 ‘ allocated block returned in ADR. 

: 1054 1419 ‘ 

; 1055 1420 l<=- 

: 1056 1421 

; 1057 14 ¢ 2 GLOBAL REGISTER 

; 1058 16s LENGTH = 1, ! Length to allocate 

; 1059 1424 ENTRY_BLOCK = 2; ! Address of allocated block 

: 1060 1425 

: 1061 1456 LOCAL 

§ 1068 1427 STATUS; 

: 106 1428 

3 Hg: 1663 LENGTH = .LEN; ! Place length into R1 

; H's « \o3) STATUS = EXESALOPAGED (); ! Allocate from paged pool 
; 1068 1433 5 -ADR = .ENTRY_BLOCK; ! Return address of block 

: 1069 1434 

3; 1070 1435 § IF NOT .STATUS 

3; 1071 1436 THEN STATUS = INS$_NOPAGEDYN; 

: 1072 1437 2 

: 1073 1438 2 RETURN .STATUS; F 

3 1074 1439 1 END; ! Routine ALLO_PAGED 


OFFC 00000 ALLOC_PAGED: 
~WOR Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
51 04 AC dO 00002 MOVL LE TH 
000000006 00 16 00006 JSB EXESALOPAGED 
08 BC 52 DO 0000C¢ MOVL ENTRY BLOCK, @ADR 
07 50 EB 90010 BLBS ATUS, 
50 000000006 &F BO 9001 MOVL § #INS$_NOPAGEDYN, STATUS 
4 OOO1A 1$: RET 


; Routine Size: 27 bytes, Routine Base: S$CODE$ + 06C3 


3; 1075 


1440 


1 


Page 33. 


(11) 


Build an ASCII string of the concatenated Device, Directory 
Type strings. 


DT_DSC COSC$W_LENGTH] = .NAMBLK CNAMSB_DEV] + .NAMBLK CNAM$B_DIR] + | 
-NAMBLK CNAMSB_TYPE]; ! Length of DBT string | 


DDT_DSC CDSCSA_POINTER] = 
DDT~DSC CDSCS$ATPOINTER) = 


DDT_DSC COSCSA_POINTER] 
DDT_DSC CDSC$A_POINTER] 


' 
D 


POMIPONIMONINOPD 2 OS | OOO 
AUESWNM OO CONAULSWN—OOON 


WWAWWPoN 
WN oO 0oOn 


DDTSTR; 

CHSMOVE (.NAMBLK CNAMSB_DEV], .NAMBLK CNAMSL_DEV], 
.DDT_DSC CDSCSA POINTER) 

CHSMOVE (.RAMBLK CNAMSB_DIR), .NAMBLK CNAMSL_DIRI, 
.DDT_DSC CDSCSA POINTER));: 

CHSMOVE (.RAMBLK CNAMSB TYPE] 


“NAMBLK CNAMSL_TYPE), 


.DDT_DSC COSCSA_POINTERS); 


n15 | 

INSCREATE 16-Sep-1984 01:49:49 AX-11 Bliss-32 V4.0-74 Page 34. 
y02+000 find_kfd Locate Device, Directory, Type block 13-80 8=1 382 2:35:36 PINSTAL SRe INSCREATE .852;1 . ad 
3 ior? 194) } ASBITL ‘find_kfd Locate Device, Directory, Type block for KFE'; 
; 1079 1208 1 ROUTINE FIND_KFD (NAMBLK, INSERT_KFD_ADR) = 

: 1080 1444 BEGIN 

; 1081 1445 loo4 
3 1086 1228 ! 
: 108 144 ! FUNCTIONAL DESCRIPTION: 
3: 1084 1448 ! 

; 1085 1449 ! Given a name block for a file, figure out which KFD list it 

3; 1086 1450 ‘ would be in. If it is in a KFD | st, return the address 

3; 1087 1451 ! of the KFD in RO. If the KFD doesn't exist, then return 0 

: 1088 1428 ! and place the address of where the KFD should go when it's 

; 1089 145 ‘ created into INSERT_KFD_ADR. 

: 1090 1454 ! 

3; 1091 1455 !eoe 

: 1098 1456 2 MAP | 
3; 109 1457 NAMBLK : REF BBLOCK; 
> 1094 1458 

3; 1095 1459 BIND 

3: 1096 1460 INSERT_KFD = .INSERT_KFD_ADR, 

: 1097 1461 KFPB = EXESGL_KNOWN_FILES : REF BBLOCK; 

: 1098 1008 

3 1099 146 LOCAL | 
: 1100 1464 KFD : REF BBLOCK 

> 1101 1465 DDTSTR : BBLOCK CNAMSC_MAXRSS) 

:1 0¢ 1466 DDT_DSC : SBBLOCK CDSCSC_S_BLNI, 

: 110 1467 PRV_KFD; ! Previous KFD 

: 1104 1468 2 : 
3 1105 1469 2 IF .KFPB EQL 0 ! There is no pointer block yet 

: 1106 1470 § THEN 

‘5 1471 BEGIN 

31 147@ 3 INSERT_KFD = 0; 

s 7 147 3 RETURN 0; 

3: 1 1474 2 END; 
3 7% 1475 2 Snes 

; 1 1476 2 IF _.KFPB CKFPBSL_KFDLST] EQL 0 ! If there are no KFDs in List 
pd 1477 2 THEN 

° | 1478 BEGIN ! Make it the first 

3 1 1479 INSERT_KFD = KFPB CKFPBSL_KFDLSTJ; 

3 1 1480 3 RETURN 0; ' There are no KFDs 

3 1 1481 2 END; | 
ie | 1086 

4 148 | 
2 1 1484 
31 1485 

3 1 1486 § 

: 1 1487 

7 1488 

: 1 1489 

: 1 1490 

3 1 1491 

3 1 14 § 

s 14 

3 1 1494 

: 1 1495 

3 1 1496 

r. | 1497 


owowowovovnd 


N 15 


INSCREATE 16-Sep-1984 49:49 AX-11 Blis Page 5 
yO5000 find. kfd Locate Device, Directory, Type block 122868 38 93:92:92 UN NSTALS SR affine NSCKE é B82; 31 . 33 
> 1134 1498 DDT_DSC CDSCSA POINTER] = soTsTe 

3 1 5 1338 INSSCVT. DIR (DBT_DSC); Convert and compress directory brackets 
3 11 $ 1804 i Traverse the KFD List to find a KFD block with a o uarveniee © DDT ate 100. 
3; 1138 1306 ! If no match is found, record eddress of block after whic new 

3 "2 128? block containing the new DDT string should be tnsareed. 

3 1141 1505 PRV v3 ak’ fe CKFPBSL +4) ies 

$ 1108 1208 KFD"= Yin JKFBL : : 

: 1347 130% WHILE KFDN Q0D ! Single Linked List ending in zero 

3: 1145 1509 CASE emeeiaber (,DDT_DSC CDSC$ ENGTH], DOTSTR 

> 1146 1510 > CkFDSB_DDTSTR LEAD, KFD CKFDST_DBTSTRI, %C* ") 

3 1147 1511 FROM -1 TO 1 OF ' Either less than? equal to, or greater than 
: 1148 1219 SET 

: 1149 151 

3; 1150 1514 {-1): ' Less than, therefore its not in the list 

3 1151 1515 4 N : 

; 1136 1516 4 sy nal _KFD = .PRV_KFD; ! Return Previous KFD to caller 

3 115 1517 4 RETURN 0; ' Return KFD not found 

3 1154 1518 3 NDe 

3 1155 1519 3 

3; 1156 1520 3 (0) : 

3 1157 1521 4 BEGIN 

3: 1158 1822 4 INSERT_KFD = 0; ' Return a ZERO to caller 

3 1159 1523 4 RE TURN .KFD; ' Return KFD found 

: 1160 1524 H END; 

3 1161 1525 

3 1162 1526 3 C1) : ! Greater than, 

3: 1163 1527 4 BEGIN 

3 1164 1528 4 PRV_KFD = .KFD; ! Current KFD now becomes previous 
3: 1165 136° 4 KFD = .KFD CKFDSL_LINK]; ! Follow Link for next current KFD 
3; 1166 1530 3 ND; 

3s 1167 1531 3 TES; : 

; 1168 1532 § END; ! WHILE traversing KFD List 

: 1169 1533 

: 1170 1534 2! 

3 1171 1535 2! Traversed whole List without finding match or finding where it 

: 1176 1536 i should fit in list, so put it at the end 

3 117 1537 i 

3 1174 1538 INSERT _KFD = .PRV_KFD; 

: 1175 1539 A NO; : 

; 1176 1540 1 EN ! Routine find_kfd 


O1FC 00000 FIND_KFD: 


WORD Seve R2,R3,R4,R5,R6,R7,R8 > 1443) 
58 000000006 00 990 MOVAB KFP ; | 
3E FEF CE $f MOVAB -264(SP ; 
5 AC 000 MOVL INSERT Pete: SADR, R? > 1460 
50 68 09 091 MOVL KFPB, RO + 1469 
4 1 BNEQ = ‘1 : 
67 0 001 CLRL (R7) : 147 
7 11 00019 BRB 2$ : 147 


—FOAMMOOM FS BOK Ke TOMMOOD Z EB KOK TO MMOOOZ BO KO He TOMNMOOOZ BO KC He TO NMOOW 


Oo@~ Oo 


INSCREATE 16-50 AX-11 Bliss-32 V4.0-74 Page 35 
v04- find_kfd Locate Device, Directory, Type block 1 3087138 93; 43: 3 INSTAL. SRCJINSCREAT $251 . 433 
0D 1B 1$: TSTL (RO) : 1476 
1 1D BNEG t : 
67 p 1F MOVL RO. (R7) + 1479 
00 1 é 38: BRW 7 + 1480 
6 4 ac d0 $: OVL -NAMBLK, Rs + 1487 
9 AB 9A 9 MOVZBL 27 (R6) , R : 
1 A A6 9A D MOVZBL 58(R6), R1 ; 
51 60 90 1 ADDL2 1, RO : 
5 3( As A 0 4 MOVZBL RG), R2 + 1488 
6E 5 52 Al 00038 ADDW3  R2, RO. DDT_DSC ; 
04 AE 08 AE 9E 0003C MOVAB pbfsTR. DDT-DSC+4 + 1490 
5 » & 3A 004] MOVZBL 57(R6). RO + 1491 
04 BE 44 Bb 50 28 0004 MOVC RQ, @68(R6), aDDT_DSC+4 + 1492 
04 AE 53 D0 00048 MOVL 3, DDT_DSC+4 ; 
50 3A «AB 9A O004F MOVZBL 58(R6), RO + 1493 
04 BE 48 B6 29 28 00053 Ove RO, a70(R6), aDDT_DSC+4 + 1494 
04 AE 5 pO 90099 OVL 3, DDT_DSC+4 he 
50 3c = AS s«O9A (00050 MOVZBL 60(R6),~RO : 1495 
04 BE 50 Bb 50 28 00061 ove R , @80(R6), aDDT_DSC+4 + 1496 
04 AE 53 DO 00067 OVL DDT_DSC+4 ; 
04 AE 08 AE 9E 0006B OV RS, DDT “DDT_DSC+4 + 1498 
5E DD 00070 PUSHL SP + 1499 
000000006 00 01 FB 00072 CALLS #1, INS$CVT_DIR ; 
50 68 DO 0007 MOVL Kr RO + 1505 
56 50 pO 0007¢ MOVL PRV ekFD : 
54 60 D0 0007F MOVL {R6) ‘ + 1506 
1E 13 00082 4$: BEQL : 1507 
50 10 A& 9A 00084 MOVZBL Fe x FD), RO : 1510 
50 20 08 AE 6E 2D 00088 CMPC5 DDT_DSC, DDTSTR, #32, RO, 17(KFD) F 
11 AG 0008E : 
08 1A 00090 BGTRU 5$ ; 
3 1F 00092 BLSSU  6$ ; 
67 D4 00094 CLRL (R7) : 1522 
50 54 DO 00096 MOVL KrD. RO + 152 
04 00099 RET : 
56 54 DO 0009A 5$: MOVL KFD, PRV_KFD : 152 
54 64 D0 0009D MOVL (KFD), KFD 3; 182 
0 11 000A0 BRB 4 : 150 
67 6 DO OO0A2 6S: MOVL PRV_KFD, (R7) : 153 
50 D4 OO0AS 7$: CLRL — RO : 154 
04 000A7 RET ; 


; Routine Size: 168 bytes, Routine Base: $CODE$ + O6DE 


; 1177 1541 1 


ee en ane eS cy eae 


INSCREATE 1b-3¢ -1984 01:49:49 AX-11 Bliss-32 V¥4.0-74 Page 7 
VOLsOBO build_kfd Build a Device, Directory, Type bloc 1 =300 71382 93:92:92 YINSTAL SRe INSCREATE.B32;1 ’ ae 

0 54 1 ZSBTTL ‘build_kfd Build a Device, Directory, Type block for the KFE’; 

81 4 1 ROUTINE BUILD_KFD (NAMBLK,KFDBUF) : NOVALUE = 

&¢ BEGIN 

Fi ieee 

85 ; FUNCTIONAL DESCRIPTION: 

87 5 ! Given the file info in the NAM block, construct a KFD entry. 

88 5 ! A KFD entry is a List head for all known file entries whic 

8 é share the same Device, directory and file type. 

31 5 INPUTS: 

38 i NAMBLK = Address of the NAM block 

94 5 ' KFDBUF = Address of the buffer to build the kfd in 

32 2 } (must be KFDSC_LENGTH+NAMS$C_MAXRSS in Length) 

97 MAP 

98 NAMBLK : REF BBLOCK, 

99 KFDBUF : REF S$B8BLOCK; 


° 1 
3 1 
3} 
o 1 
3 7 
6 1 
3; 7 
2 1 
3; 7 
3 
o 1 
3 3 
oe 1 
3% 
3; 7 
3; 7 
3 1 
3 1 
3 7 
37 
3 7 
3 7 
3 1 
3 7 
3 7 
3; 1 
3 
° 1 
3 7 
° 1 
37 
3 1 
; 
5; 7 
37 
g 
37 
3 7 
3; 7 
; 7 
3 7 
31 
5 7 
: 7 
3; 7 
37 
37 
3% 
° 1 
3 7 
3} 
3 1 
3; 7 
é 1 
| 
: 1 
37 


CAL 
DoT_DSC : SBBLOCK CDSCSC_s_BLNJ, 


PTR2 
LENGTH; 


2 
2 
$ DDT_DSC CDSCS$W_LENGTH] = .NAMBLK CNAM$B_DEV] + .NAMBLK CNAMSB_DIR] + 
Ps -NAMBLK CNAM$B_TYPE]); ! Length of DBT string 
é LENGTH = KFDSC_LENGTH + .DDT_DSC COSC$@Q_LENGTH); 

2 CHSFILL (0, .LENGTH, .KFDBUF); ' zero the KFD 

3 KFDBUF CKFO$W SIZE) = .LENGTH: 

2 

2 

2 

; 

2 

: 


KFDBUF CKFDSB~TYPE] = DYNSC_KFD; 
KFDBUF CKFDSB~DDTSTRLEN] = <DDT_DSC CDSC$W_LENGTH]; 


SINS NSN NDA AAAAAAO AO ww Sl ee ae el 


t 
! Build a counted ASCII string of the concatenated Device, Directory 
Type strings. 


DDT_DSC_CDSCS$A_POINTER] = KFDBUF CKFD$T_DDTSTRI: 

KFDBUF CKFD$B_BEVLEN)] = .NAMBLK CNAM v); 

DDT_DSC CDSCS$A_POINTER] = CHSMOVE (.NARMBLK CNAMSB_DEV], .NAMBLK CNAMSL_DEV), 
DD COSCSA_POINTER]); 

KFDBUF CKFD$B_DIRLEN] = .NAMBLK CNAMSB DIR; 

DDT_DSC CDSC$A_POINTER] = CHSMOVE (.NAMBLK CNAMSB_DIR], .NAMBLK CNAMSL_DIRI, 
<DDT_DSC COSC$A_POINTERI): 

DDT_DSC CDSCS$A_POINTER] = CHSMOVE (.NAMBLK CNAMSB TYPE], .NAMBLK CNAMSL_TYPE], 
.DDT_DSC CDSC$A_POINTERS); 


LENGTH = .D 
cC ; 


Ss $W_LENG ' Save current DDT Length 
DOT_DS P ] 
INSSCVT_DI BT 

u 

i 


NGTH]; ‘ 
= KFDBUF CKFDST_DDTSTRI; ; 
: ! Convert and compress directory brackets 


NUN UNPOOfurohohohehofnund— 2-3-3 SOOOOOOOOO 
eR PO ONO UNOS Ne ARGOS 


i Calculate amo 


string compression that occurred and 
! correct the f 


in the KFD where appropriate. 


ee ee ee ee ee ee ee ae a el el el ee a a el el ee ee ee ae ae ee a a a ed 
rw ate ale al al eal sal al al al ab ab al ah sah ab Ab Ab Ab bh hb db de dh hb dh dh ah eh ah ah ah al ab al al al eal al ake Oa Ol al eal eal ele Olea eel ee eee) 


DO ODO00 000000000 00 60 G0 6060 60 60 
SoS SRS SSS AR MN HM OOONONE WN —O O00 SOA F NR DOO OU oD G0 Onn eso 


PEPIN ATNVNINIPOPOPONINPOPYAPIPUPIPOPUNIPIPIPUNPIPINIDININPININPININININID) 2 SS 2 2 I OS 


eso. 1 om 


INSCREATE AX-11 Bliss- - 
inc Bliss-32 V4.0-7 Poge it 


D 16 
1o~3e0- 138% 91:42:49 
build_kfd Build a Device, Directory, Type bloc 14-Sep-1984 12:35:36 INSTAL. SRCJINSCREATE. 8 2;1 


:1 1599 2! 

[4 5 1600 LENGTH = .LENGTH - See COSC$W_LENGTH]; 

> 1238 1601 2 KFDBUF Kf i8 gini Ns KFDBUF CKFD$B_DIRLEN] - .LENGTH; 

3: 1239 160¢ KFDBUF CKFDS$W"SIZE . KF DBUF rKFDSY ares = LENGTH; 

: 40 1603 KEDBUF KEDSO” DDTSTRLEN] = .KFDBUF CRFDSB_DDTSTRLEN] - .LENGTH 
: 1242 1605 1 END; - ' Routine build_kfd 


O3FC 00000 BUILD_KFD: 
W RD 


0 Save R2,R3,R4,R5,R6,R7,R8B,RO 3 1544 
5E 08 ¢2 00002 SUBL2 , SP : 
57 04 AC 00 90005 MOVL - NAMBLK, R7 + 1570 
50 9 A? 9A 00009 MOVZBL 57(R7). RO : 
51 3a A?-—s«9A 00000 MOVZBL 58(R7). : 
50 51 ¢O 00011 DDL2. R1, RO ; 
52 3c = A7-—s« GA -00014 MOVZBL 60(R7), R2 + 1571 
6E 50 52 Al 00018 ADDW3 R2, RO. DDT_DSC ; 
58 6— 3C 0001C MOVZWL DDT_DSC, LENGTH + 1572 
58 11 CO O001F ADDL2. #177 LEN GI H F 
56 08 AC DO 00022 MOVL KF DBUF + 157% 
58 00 6E 00 2c 90026 MOVCS #0, vep) S40, LENGTH, (R6) F 
08 A6 8 BO 900¢¢ MOVW LENGTH, 8(R6) + 1575 
OA Ab 43 BF 90 00030 MOVB #67, 10(R6) : 1576 
10 Ab 6E 90 00035 MOVB DDT_DSC, 16(R6) : 1577 
59 11. Ab 9E 00039 MOVAB 17(R6), R9 : 1583 
04 AE 59 D0 00030 MOVL RY, DoF _psc+4 : 
OE A6 39 AZ 90 00041 MOVB  57(R7),714(R6) + 1584 
50 39 = AZ) «9A 00046 MOVZBL 57(R7). RO + 1585 
04 BE 44 B87 50 28 0004A MOVC3 RO, a68(R7), aDDT_DSC+4 : 1586 
04 AE 53 D0 60050 MOVL R3, DDT_DSC+4 : 
OF AG 3A A?-—s«900.: 00054 MOVB 58(R7),~15(R6) : 1587 
50 3a A?s«O9A (00059 MOVZBL 58(R7). RO : 1588 
04 BE 48 87 20 28 9005p OVC3 RO, a7e(R7), aDDT_DSC+4 : 1589 
04 AE 53 D0 00063 OVL  R3, DDT_DSC+4 ; 
50 3c = A?-—s9A 00067 MOVZBL 60(R7),~RO : 1590. 
04 BE 50 87 50 28 00068 Ovc3 RO, a86(R7), aDDT_DSC+4 : 1591 
04 AE 53 pO 00071 OVL  R3, DDT_DSC+4 : 
58 6— 3c 00075 MOVZ2WL DDT_DSC7 LENGTH : 1593 
04 AE 2? DO B80 8 OVL R9, DDT_DSC+4 3 1594 
E Dd 0007C¢ PUSHL SP : 1595 
000000006 00 01 FB OO07E ALLS #1, INSS$CVT_DIR : 
50 6E 3C 0008 MOVZWL ODT_DSC, RO : 1600 
5B 50 ¢ 0088 SUBL2 RO, ~LENGTH ; | 
OF A6 53 0088 SUBB2 LENGTH, 15(R6) : 1601 
08 A6 38 A2 0008F SUBW2 LENGTH, 8(R6) : 1608 
10 A6 58 82 00093 SUBB2 LENGTH. 16(R6) > 160 
04 00097 ET > 1605 


; Routine Size: 152 bytes, Routine Base: $CODE$ + 0786 


3 1243 1606 1 


16 
INSCREATE 1$-Sep-19 4 93:32:49 AX-11 Bliss-32 eh mies Page 39 
v04- Enter_kfe Enter the KFE into the hash table an 14-Sep-1984 12:35:36 INSTAL .SRCJINSCREATE.B52;1 (14) 


1 ZSBTTL ‘Enter_kfe Enter the KFE into the hash table and KFE List’; 
1 poyt ie ENTER_KFE (KFE_TMP, HSHIDX, NEWKFD, NEWKFD_INSERT_ADR) = 


Lo foto) 


45 
4 
4 
48 


3 7 1607 

3 7 1608 1 

; 7 1609 

3 3 1610 

3: 1249 1611 l+o4 

; 1250 1ol¢ ! 

3 : 2) 1917 FUNCTIONAL DESCRIPTION: 

3 1 a 1615 : Place the KFE into the KFD List and the Hash table List. 

: 1254 1616 ! The Hash List is the one used by RMS open to determine if 

; 1255 161 , the file is installed. The KFD List is the ordered list 

3 : 2$ 198 } which is traversed when the known file data base is LISTed. 

> 1258 1620 ! KFE_TMP Address of temporary block containing copy of KFE 

; 1259 1621 ! HSHTDX Index into hash table where entry should be inserted 
; +e 1os¢ : NEWKFD Address of KFD entry if this KFE was first in a new 
: 1261 16 ! KFD List 

; 126¢ 1624 2! NEW_KFD_INSERT_ADR 

: 126 1625 2! Address in KFD List in which to place the new KFD if 
: 1264 1626 2! one was required. 

; 1265 1627 2! 

; 1266 1628 2 !--- 

: 1267 \oe9 2 MAP 

; 1268 1630 2 KFE_TMP : REF BBLOCK, 

: 1269 1631 2 NEWRFD : REF S$BBLOCK, 

: 1270 1636 § NEWKFD_INSERT_ADR : REF BBLOCK; 

3: 1271 163 

3: 1272 1634 § LOCAL 

3 1273 1635 HSHTAB : REF VECTOR C,LONGJ, 

> 1274 1636 2 KFD : REF BBLOCK, 

3; 1275 1637 2 KFE : REF $BBLOCK; 

3; 1276 1638 2 

s terr 1639 2 BIND 

; 1278 1640 é KFPB = EXESGL_KNOWN_FILES : REF BBLOCK; 

: 1280 1642 2 INSSCNVRT_KF_LOCK (LCKSK_EXMODE); ! Convert protected read to exclusive 
: 1281 1643 2 ! to lock out any image activations 
3 1se6 1644 2 

3; 128 1645 2 SET_IPL (IPLS_ASTDEL); 

3 1284 1646 2 EXETUTE(ALLOC-PAGED ( .KFE_TMP_CKFESW_SIZEJ, KFE)); 

3 +4 + of 2 CHSMOVE ( .KFE_TMP CKFESW_SIZEJ, .KFE_TMP, .KFE); ! Copy temp to paged pool 
3; 1287 1649 IF .KFPB EQL 0 

: 1288 1650 THEN 

3; 1289 1651 BEGIN 

: 1290 163¢ ! 

: 193) 193? Allocate Known file pointer block 

3 1598 1655 EXECUTE(ALLOC_PAGED (KFPBSC_LENGTH, KFPB)); 

3: 1294 1656 CHSFILL (0, KFPBSC_LENGTH, .KFPB); 

> 1295 1657 KFPB CkePegu Size] = KFPB$C_LENGTH; 

3: 1296 1658 KFPB CKFPBSB_TYPE) = DYNSC_RFPB; 

: 1297 1659 

3; 1298 1660 ! 

: 1299 1661 !  NEWKFD INSERT_ADR must have been zero since there was no header 

; 1300 106¢ ! block Before now. So the KFD for the KFE being inserted will be 

3; 1301 166 ! the first in the List. 


F 16 
INSCREATE 16-Sep-1984 01:49:49 AX=11 Bliss-32 V4.0-74 Pa 40 
v04 Enter_kfe Enter the KFE into the hash table an 12286871382 93:92:92 INSTAL’ SREDING CREATE B82: 1 9 14) 


3 3 8 1664 : 

: 130 1665 NEWKFD_INSERT_ADR = KFPB CKFPBSL_KFDLSTI; 

: 1304 1998 

; 1305 166 ! 

: : Be 1998 } Allocate Hash table 

: 1308 1670 EXECUTE(ALLOC PAGED (4 * .SGN_B_KFHSHSIZ, KFPB CKFPBSL_KFEHSHTAB))); 
: 1309 1671 KFPB CKFPB$W_ASHTABLEN] = .SGN B_KFHSHSIZ; 

; 1310 1676 CHSFILL (0, & * .SGN_B_KFHSHSIZ,~.KFPB CKFPBSL_KFEHSHTAB)); 

: 1311 167 END; 

3 1312 1674 

3 13}; 1979 HSHTAB = .KFPB CKFPBSL_KFEHSHTAB); 

3 1315 1677 ! 

; 1316 1678 ! Search the hash bucket Linked List for insertion point 

$ tai! 1679 } 

3; 1318 1680 BEGIN 

3: 1319 1681 LOCAL 

; 1320 1056 CMPKFE : REF BBLOCK, 

: 1321 168 PRVKFE : REF BBLOCK; 

; 1322 1684 : 

3; 1323 1685 PRVKFE = HSHTAB C.HSHIDX]; ' Previous KFE 

3: 1324 1686 3 CMPKFE = .HSHTAB L.HSHIDXI; ' Comparison KFE 

: 1325 1687 3 WHILE .CMPKFE NEQ 0 DO ! Single Linked List ending in zero 
3: 1326 1688 4 BEGIN 

3 1327 1689 4 CASE CHSCOMPARE (.KFE CKFESB_FILNAMLEN], KFE CKFEST_FILNAM], 
: 1328 1690 4 -CMPKFE CKFESB_FILNAMLEN], CMPKFE CKFEST_FICNAM], %C° ‘) 
3; 1329 1691 4 FROM -1 TO 1 OF ! Either less than, equal to, or greater than 
; 1330 1938 4 SET 

3; 1331 1693 4 ; ) 
3; 1332 1694 4 {-1): ! Less than, therefore its not in the list, insert here 
3; 1333 1695 5 BEGIN 

3 1334 1696 5 KFE CKFESL_HSHLNK] = .PRVKFE CKFESL_HSHLNK]; 

; 1335 1697 5 PRVKFE CKFESL_HSHLNK] = KFE CKFESL_HSHLNKI; 

3; 1336 1698 5 PRVKFE = 0; ! Mark as inserted 

3; 1337 1699 5 CMPKFE = 0; ! Terminate traversal 

; 1338 1700 4 END; 

: 1339 ‘1701 4 

3; 1340 1708 4 (0) : ! Same file name, place newest in front 

3 1341 1703 5 BEGIN 

Hy HE ok 1704 5 KFE CKFESL_HSHLNK) =_.PRVKFE CKFESL_HSHLNK]; 

3 134 1705 § PRVKFE CKFESL_HSHLNK] = KFE CKFESL-HSHLNKJ; 

3 1344 1706 5 PRVKFE = Q; ! Mark as inserted 

3 1342 1707 5 CMPKFE = 0; ! Terminate traversal 

3: 1346 1708 4 END; 

3 1347 1709 4 

3 1348 1710 4 C1) : ! Greater than, 

3 1349 1711 5 BEGIN 

: 1350 Vig 5 PRVKFE = .CMPKFE; 

3; 1351 171 5 CMPKFE = .CMPKFE CKFESL_HSHLNK]; 

: 1328 1714 4 D; 

3; 135 1715 & TES; ‘ : 

3; 1354 1716 END; ! WHILE traversing hash bucket List 

; 132? 1717 

3 1356 Ha | ! ; 

; 1357 171 ! Have traversed whole List. If PRVKFE has been set to 0, then 
3; 1358 1720 ! it was inserted, else it goes at the end. 


16 
INSCREATE 18-Sep-1984 01: 
v04-000 - 93 


p AX-11 Bliss-32 V4.0- Page 41 
Enter_kfe Enter the KFE into the hash table an 14-Sep-1984 ) 


9:49 Y ; 74 
2:35:36 INSTAL. SRCJINSCREATE.832;1 (14 


; 1359 1721 ! 

; 1360 17 ¢ IF .PRVKFE NEQ 0 

3; 1361 17 TH 

s 4 ¢ 1724 PRVKFE CKFESL_HSHLNK) = KE: 

; : o7 5 END; ! Block for inserting KFE into Hash bucket List 
: 65 7 ? KFPB CKFPBSW_KFDLSTCNT] = .KFPB CKFPBSW_KFDLSTCNT] + 1; 

: 1367 1729 2 KFD = .KFE CKFESL_KFDJ; 

; 1368 1730 IF .KFD EQL 0 

3; 1369 1731 THEN 

; 1320 17 ¢ BEGIN 

3; 1571 17 EXECUTE (ALLOC_PAGED( .NEWKFDOCKFDS$W_SIZEJ,KFD)); 

: 1376 1734 CHSMOVE ( NEWKFDCKFDS$W_SIZEJ,.NEWKFD,.KFD); 'Copy the KFD 

: ! te 1786 KFE CKFESL_KFD] = .KFDB; 

3 1375 1737 ! New KFD must be inserted into List 

: 1376 1738 3 ! 

: 1377 1739 3 KFD CKFDSL_LINK] = .NEWKFD_INSERT_ADR CKFDSL_LINK); 

; 1378 1740 3 .NEWKFD_INSERT_ADR = .KFD; 

3 1380 1248 3 KFPB CKFPBSW_KFDLSTCNT] = .KFPB CKFPBSW_KFDLSTCNT) + 1; 

; 1381 1743 2 END; 

3 1386 1744 § 

; 138 1745 KFD CKFD$W_REFCNT] = .KFD CKFDSW_REFCNT) + 1; 

3; 1384 1746 § 

; 1385 1747 ! : 

3; 1386 1748 2! Now thread the filename ordered List from the KFD 

: 1387 1749 2! 

3; 1388 1750 2 IF .KFD CKFDSL_KFELIST] EQL 0 

3; 1389 1751 2 THEN 

: 1390 1036 2 ! 3 

3; 1391 1753 2 ! The List is empty, so make this the first entry 

3 1398 1754 2 ! 

; 139 1755 2 KFD CKFDSL_KFELIST] = .KFE 

3 1394 1756 2 ELSE 

3; 1395 1757 2 : : 

3 1396 1758 2 ! Must be inserted somewhere in the ordered List of KFEs 

3 1397 1759 

3 1398 1760 BEGIN 

3; 1399 1761 LOCAL 

; 1400 176¢ CMPKFE : REF BBLOCK, 

: 1401 176 PRVKFE : REF BBLOCK; 

; 1408 1764 

3: 140 1765 Rap ae : 

3: 1404 1766 PRVKFE = .KFD; ! Initialize Previous KFE 

: 1405 1767 ! wet CAUTION **# . ; 
3 1408 1768 ! This assumes kfd$l_kfelist = kfe$l_kfelist 
3 1408 1770 CMPKFE = .KFD CKFDSL_KFELISTI; ! Comparison KFE — al. 

: 1609 el ; WHILE  CHPKFE NEQ 0 BO ! Single Linked List ending in zero 
: 1411 1338 4 CASE CHSCOMPARE (.KFE CKFESB_FILNAMLEN), KFE CKFEST_FILNAM) 

: 141 1774 4 .CMPKFE CKFESB_FILNAMLEN], CMPKFE CKFEST_FICNAMJ, XC" ‘) 
3; 141 1775 4 FROM -1 TO 1 OF ' Either less than, equal to, or greater than 
3 1414 1778 4 SET 

3 1415 1777 4 


H 16 
INSCREATE 16-Sep-1984 01:49:49 AX-11 Bliss-32 V4.0-74 Page 42 
yo2-000 Enter_kfe Enter the KFE into the hash table an 12286871382 93:92:92 INSTAL .SRCJINSCREATE.852;1 ’ (14) 
; 1338 1778 4 {-1]: ! Less than, therefore its not in the list, insert here 
3 141 177 BEG 
; 1213 1780 KFE CKFESL_KFELINK] =_.CMPKFE; 
: 141 1781 PRVKFE CKFESL_KFELINK] = .KFE; 
: 1420 17 ¢ PRVKFE = Q; "Mark as inserted 
> 1421 17 5 CMPKFE = 0; ! Terminate traversal 
3 14 ¢ 1784 4 3 
3; 14 1785 4 
> 1424 1788 4 (0) : ! Same file name in same KFD, is a serious bug 
: 1425 1787 5 BEGIN 
: 1426 1788 5 INSSL_INTRNLERR = DUPINKFD_ERR_DSC; 
: 1427 1789 2 INSSCAVRT_KF_LOCK (LCKSK_PRMODE); ! Convert exclusive to protected read 
3; 1428 1790 SET_IPL (0); ! Drop IPL before returning error status 
: Le? 1791 5 RETORN INS$_INTRNLERR; 
3: 1430 1736 4 END; 
3 1431 1793 4 
3 1036 1794 4 C1) : ! Greater than, 
3 143 1795 5 BEGIN 
3 1434 1796 5 PRVKFE = .CMPKFE; 
: 1435 1797 5 CMPKFE = .CMPKFE CKFESL_KFELINK]; 
: 1436 1798 4 END; 
; eH 1799 4 TES; = 
> 1438 1800 3 END; ! WHILE traversing KFD's ordered KFE List 
3: 1439 1801 ; 
: 1440 1908 ' 
3 1441 1803 3 ! Have traversed whole List. If PRVKFE has been set to 0, then 
: 1442 1804 3 ! it was inserted, else it goes at the end. 
: 1443 1805 3 : 
3 1444 1806 3 IF .PRVKFE NEQ 0 
3 1445 1807 3 TH 
3: 1446 1808 3 PRVKFE CKFESL_KFELINK] = .KFE; 
3 1447 1809 § ND; ' Insert KFE in ordered KFE List 
> 1448 1810 
3 1449 1811 § SET_IPL (0); 
3; 1450 a 
3 ytd OF § INSSGL_KFEADR = .KFE; ! Return new KFE address in case of /LOG 
; 1288 1815 2 INSSCNVRT_KF_LOCK (LCKS$K_PRMODE); ! Convert exclusive to protected read 
3 1454 1816 2 ! to allow image activations 
3; 1455 1817 2 
3 1456 1818 2 RETURN TRUE; 3 
3; 1457 1819 1 END; ! Routine Enter_kfe 
OFFC 00000 ENTER_KFE: 
eWORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 1609 
58 000000006 00 9€ 0000 MOVAB SGN B_KFHSHSI2 R11 $ 
SA FE98 CF 9E 0000 MOVAB ALLOC”PAGED, R10 : 
59 900000006 99 9E 0000 MOVAB INSSCRVRT_KF_LOCK, R9 ; 
58 000000006 2 001 ey KF R8 3 
5E OB ¢ 001C UBL2 #8, §P ; 
DD OO01F PUSHL # ; 1642 
69 01 FB 9021 CALLS #1, INSSCNVRT_KF_LOCK ; 
12 02 DA 00024 MTPR #2, #18 > 1645 


16 
INSCREATE 1b-Se5-19 4 01:49:49 AX-11 Bliss-32 V4.0-74 P 
yo25000 Enter_kfe Enter the KFE into the hash table an 1 ~30e7} 387 12:35:36 PINSTAL SRe THSCREATE 8 2;1 aad TY} 
SE DD 7 PUSHL SP : 1646 
52 04 A BO 09 9 MOVL KFE_TMP, R2 : 
7E 8 Ad 3¢ D MOVZ2WL 8(R2), <(SP) : 
A 9 FB 0031 CALLS #2, ALLOC_PAGED : 
gb she RE sTorug Is eer 
67 62 08 Ke 28 $0 A MOVC3 8(R2), (R2), (R7) : 
68 D5 0003F TSTL  KFPB : 1649 
44 12 00041 BNEQ 2$ : 
58 0D 90048 PUSHL R8 > 1655 
10 DD 00045 PUSHL #16 : 
6A 98 FB 90047 CALLS #2, ALLOC_PAGED ; 
23 E9 O004A BLBC STATUS, 18 ; 
56 68 DO 00040 OVL.  KFPB, R6 : 1656 
10 00 6 00 2c 6000 MOVCS #0, (SP), #0, #16, (R6) : 
08 Ab 10 BO 00056 MOVW #16, 8(R6) : 1657 
OA Ab 44 8F 90 O005A MOVB #68, 10(R6) : 1658 
10 ac 56 DO 0005F VL _—s-R6, NEWKFD_INSERT_ADR : 1665 
04 AB 9F 00063 PUSHAB 4(R6) : 1670 
50 6B 9A 00066 MOVZBL SGN_B_KFHSHSIZ, RO : 
7E 50 02 78 00069 ASHL #2, RO, -(SP) : 
6A 02 FB 0006D CALLS #2, ALLOC_PAGED : 
6E 50 €9 00070 1$: BLBC STATUS, 7$ ; 
50 68 00 00073 MOVL KFPB, RO + 1671 
51 6B 9A 90076 MOVZBL SGN_B_KFHSHSIZ, R1 : 
OE AO 51 BO 00079 MOVW = R1, 1 (RO) : 
51 04 ¢4 0007D MULL2 2 : 1672 
51 00 6E 00 2C 00080 MOVCS #0, (SP), #0, R1, a4(RO) : 
04 80 00085 ; 
54 68 DO 00087 2$ MOVL  KFPB, R4 : 1675 
51 04 A& DO OOOBA MOVL  4(R45, HSHTAB : 
50 08 AC DO OO08E MOVL §-HSHIDX, RO : 1685 
56 6140 DE 00092 MOVAL (HSHTAB)CROJ, PRVKFE ; 
55 6140 DO 00096 MOVL (HSHTAB) CROJ, CMPKFE : 1686 
26 13 0009A 3$: BEQL 5$ > 1687 
51 36 =A?) «9A 0009 MOVZBL 54(R7), R1 + 1689 
50 36 AS 9A OOOAO MOVZBL 54(CMPKFE), RO : 1690 
50 20 37 A? 51 2D OO0A4 PCS R1, 55(R7). #32, RO, SS(CMPKFE) : 
37, AS OOOAA : 
0C 1A OOOAC BGTRU 4$ ; 
66 D0 OOOAE MOVL (PRVKFE), (R7) > 1704 
57 DO 00081 MOVL R7, (PRVKFE) : 1705 
26 D4 000B4 CLRL = PRVKFE : 1206 
D4 00086 CLRL GHPKFE : 170 
£0 11 00088 BRB $ : 1689 
5 DO OOOBA 4$: MOVL CMPKFE, PRVKFE : 71¢ 
65 00 908D MOVL (CMPKFE), CMPKFE : 171 
bg 11 000C BRB $ : 1687 
DS 000C2 5$: TSTL PRVKFE : 1722 
g 1 Oca BEQL $ : 
D C6 MOVL  R7, (PRVKFE) > 1724 
Cc AG OB C9 68: INCW =: 12 (R4) : 1727 
C a7 OD cc MOVL 12(R7), KFD : 1729 
2D 1 D1 a) : 17 9 
4 AE 9F 00003 PUSHAB KFD : 17 
C AC DO 000D6 VL NEWKFD, R2 ; 
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1 ZSBTITL ‘Verify_channel Is the file on the system device'; 


pout ie VERIFY_CHANNEL (CHAN, RET_CCB_ADR) = 
‘aig 
FUNCTIONAL DESCRIPTION: 


i 

i 

i Given the channel pape return the address of the 
Channel Control Block. 
i 

i 

i 


CHA Channel number 
RET CCB_ADR Longword in which to return CCB address 


STAT 
GLOBAL neG| stER 
CCB = 


MAP ss 
CCB : REF BBLOCK; 


RET_CCB = .RET_CCB_ADR; 


Obtain the Channel Control Block 


MBDDWW-----= 


STATUS = sat > Hane (. CHAN); 
ET TORN, STATUS. 
ND; ! Routine Verify channel 


OFFC 00000 VERIFY_CHANNEL: 
. WORD 


50 04 AC 00 00002 MOVL 
000000006 00 16 00006 JSB TOCSVERIFYCHAN 
08 C 51 dO 0000C MOVL CCB, @RET_CCB_ADR 
04 00010 RET 


17 bytes, Routine Base: S$CODE$S + 0998 
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AX=11 Bliss-32 V4.0-74 
INSTAL.SRCJINSCREATE. 


zaxe R2,R3,R4,R5,R6,R7,R8,RI,R10,R11 


16 
INSCREATE 18+ Sep-19 r 249:49 AX-11 Bliss-32 V4.0-74 Page 46 
v04-000 Check shmident Is the section in shared memory 14-Sep-1984 }; 33: 36 INSTAL .SRCJINSCREATE.B32;1 (16) 


00 
; 1638 183g} 1 ZSBTTL ‘Check shmident Is the section in shared memory'; 
: 1494 1886 | 1 ROUTINE CHECK_SHMIDENT (GBLNAMDSC, RET_IN_SHRMEM) = 
: 1296 ise 8 SeeaN 
3 1499 1889 i 
3: 1498 1858 ! FUNCTIONAL DESCRIPTION: 
: 1499 1859 ! 
; 1500 1399 ‘ Check to see if the global section name translates to a name 
; 1501 1861 } which would place it in shared memory. 
3 1306 1306 ' 
; 150 130 leoe 
3; 1504 1864 LOCAL 
; 1505 1865 NAM_D BBLOCK CDSCSC_S_BLNJ 
: 1506 1866 SHRAERNAN. DSC : BBLOCK FDSc$c_S_BLnd, 
3; 1507 1867 SHRMEMNAM_BUF : BBLOCK [15], 
; 1508 1868 SDNAM_DST : BBLOCK CD gsCs. BLNI, 
; 1509 1869 GSDNAM_BUF : BBLOCK (43), 
: 1510 1870 STATUS; 
: 1511 1871 
: 1512 1376 GLOBAL precisten 
; 1513 187 SHRME = 10, 
> 1514 1874 GSDNAM = 11; 
3 1215 1875 BIND 
: 1318 1376 IN_SHARED_MEM = RET_IN_SHRMEM; 
; 1518 1878 ye: (DSC$C_S_BLN, .GBLNAMDSC, NAM_DSC) ! Copy ~ descriptor 
> 1519 1879 3 NAM_DSC CDSCSW7LENGTH = .NAM_DSC COSCSW_LENGTH] - 4; i Drop t 000 
: 1520 1880 ARACRNAM. DSC = 0; ' Zero tength 
> 1521 1881 2 SHRMEMNAM-DSC ostsu_ LENGTH] = 15; i Zero Length 
3 1522 1882 SHRMEMNAM_DSC CDSC$A-PO + phat = SHRMEMNAM _BUF ; ! Set pointer to buffer on stack 
: 136? rt ee = SHRMERNAR_DSC; piace secress pt descriptor in R10 
: 4 = 0; ' Zero the len 
: 1525 1885 2 GSDNAM~DSC post su_ LENGTH] = 43; i Zero the length 
; 1526 1886 GSDNAM_DSC CDSC$A_POINTER] = SBionan_euF: ' Set pointer to buffer on stack 
: 44 +44 GSDNAM”= GSDNAM_DSC; ! Place address of descriptor in R11 
3 1399 1889 STATUS = MMGSGSDTRNLOG ( ! Translate logical name to see if section name has 
: 1530 1890 - IN_SHARED_MEM (IF SS HRMEMRAM. ose COSC$W_LENGTH] NEQ 0, ; 
3 123! 199) 3 “THEN TRUE Return true if there was a shared memory name tran 
; 1533 1898 eR ETURN STATUS; 
; 1534 1894 1 ! Routine Check_shmident 


OFFC 00000 CHECK_SHMIDENT: 
«WORD 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 > 1854 
| 5E AC OA 3 000 002 MOV =B4(SP), SP : 
4C AE U4 BC 0 006 MOVC3 #8, @GBLNAMDSC, NAM_DSC : 1878 
4C AE 04 Ae 0 0 SUBW2 #4, NAM_DSC : 1879 
44 AE OD 1 CLRL SHRMEMNAM_DSC ; 1880 
44 AE OF +4 001 MOV #15, SHRMEMNAM_DSC ; 1881 
48 AE 34 AE 001 MOVAB SHRMEMNAM_BUF ,~SHRMEMNAM_DSC+4 : 188¢ 
SA 44 AE 9E 0001C MOVAB SHRMEMNAM"DSC, SHRMEMNAM : 188 


M 16 
INSCREATE 16-Sep-1984 01:49:49 AX-11 Bliss-32 V4.0-74 Page 47 
v04-000 Check_shmident Is the section in shared memory 14-Sep-1984 12:35:36 INSTAL .SRCJINSCREATE B32; 1 (16) 
2C «=6—AE «D4 000 CLRL GSDNAM_DSC 3 1884 
3c AE 28 B0 033 MOVW #43, GSDNAM_ : 1885 
0 AE 6E 9E 000 MOVAB GSDNAM_BUF, GSDNAM_DSC+4 1 
58 2C «=6AE (9E 00028 MOVAB GSDNAM-DSC, G : 1 
59 at Ar 9E 0002F MOVAB NAM Ro : 1889 
000000006 00 1 3 JSB MMGSGSD fRNLOG ; 
44 AE : 2 istw SHRMEMNAM_DSC : 1890 
51 ; e F MOVL #i, R1 : 
: 11 4 BRB 2$ : 
D4 043 1$: CLRL R1 : 
08 BC 51 0 9004 2$: MOVL R1, @IN_SHARED_MEM : 
4 RET 3; 1894 
4 00049 89 


; Routine Size: 74 bytes, Routine Base: $CODES + 09A9 


; 1535 1895 1 


<—_ 


_ INSCREATE bese =1984 AX=-11 Bliss-32 V4.0- Pa 4 
v04 005000 INSSBLD_GBLSECNAM Build the global section nam 12 35p- 1982 3: $3: % INSTAL. SRCJINSCREATE. 38251 “F 7 


1336 1 ZSBTTL "INSSBLD_GBLSECNAM Build the global section name string’; 
1336 1 sco. ROUTINE INSSBLD_GBLSECNAM (GBLNAMDSC) = 


— 

oo 

OCOOOOoO 
ve] 


0 lees 
i 
a8 FUNCTIONAL DESCRIPTION: 
| 0 i Build the global section name. If the name does not exist, 
0 : get the root from the NAM block and apperd _001. If it does 
0 : exist, increment the suffix. 
lease 
LOCAL 
NAMSTR : REF BBLOCK, 
BIND 


GBLNAM_SUFFIX = UPLIT (ZASCII '_001') : VECTOR C,BYTEJ; First suffix 
GBLNAMDSC : REF BBLOCK; 


AMSTR = .GBLNAMDSC CDSC$A_POINTER]; ! Pointer to last global section name, or ze| 
TF, GBLNAADSC COSCS$W_LENGTA) EQ. 0 If the name is zeroed then this is the fir, 


7 

| 

| 

: | 
| | 

| 

| 

| 


BEGIN 

SOL MAND SE EDS Su LENGTH] = .INSSG_KFENAM CNAM$B_NAME] + 4; ! a ol is filename Length plus 4 for _001 
! Poi x geet count byte 

tHSMOVE: (. INS$G_KFENAM CNAMSB_NAME], .INSSG_KFENAM CNAMSL O NAME 


! Move filename in 


QPUDPV PUPP PVP PUPP LVSPU SUSI SVSVSI SVS SIST SVS ISIS IIS 


AAAPKAOOA MINNIE BEEP ELPA 
MEWN 0 OBNO USAR (0 OONOUEWN OOO 


3 CHSMOVE (4, GBLNAM_SUFFIX, .PTR); Move _001° ut ie in 

56 ELSE ; 

56 BEGIN ' Name has eS ms | been built, increment the 
PTR = .NAMSTR + .GBLNAMDSC EOS ty LENGTH] = 1; : Locate Last digit of suffix number 
atin sta PTR) <0,8> NEQ %C'_* )~DO ! Don't want carry to clobber the ‘'_* separa 


(.PTR) <0,8> = .(.PTR) 2 + 1; 


IF ( .(,.PTR) <0,8> GTR %C'9" ) 
THEN 


Add one to suffix number 


If that raises it over ‘9° than make it a 


WAAIAIWAAI I ARPS PONONNINYDY — 9 St SS SS OOOO 


BEGIN 
os Yo = 8> ' Aad 0'; Make ‘9° into a ‘0° 


a me tk ea ts ak td = nd = ot = 2d 4 


—PININIAS B NN BS VS BS EAI WII IAIN NINIPININININININININININ 
z - 
> 
“un 


et kk et ed dd a 
DOOOOOODOOVOVODO OOO GOVOOCODDODODODODDODOWOODOODOOOOOOOOOO 


PAPA A GAA AAAI 


: PTR = ' Move to next highest decimal place | 
3 ELS | 
1 4 RETURN TRUE; 
$ 4 END; | 
4 END; 
84 4 | 
85 & RETURN TRUE; 
86 4 END; ! Routine INS$BLD_GBLSECNAM 


-PSECT SPLITS,NOWRT,NOEXE ,2 
31 30 30 SF OQO03C P.AAE: .ASCII \_001\ : 


OO eee ee . _ a 
Be Se Se Se Ge Oe Oe ee Oe Be Be ee FH Oe FH Se Be Oe FHF Os oe Oe Oe FH SH Ss Oe BH Se St Se SHS Se SH Se He Se ee Oe SHE Se Se Se Se ae ease 


_ INSCREATE ise -Sep-1984 AX-11 Bliss-32 V4.0-74 Page 49. 
V04- INSSBLD_GBLSECNAM Build the global section nam 12. ae 93: 33: % INSTAL. SRCJINSCREAT $251 : 73 | 
GBLNAM_SUFF IX= P.AAE 
-PSECT $CODES,NOWRT,2 
003¢ 00000 ENTRY INS$BLD GBLs CNAM, Save R2,R3,R4,R5 : 1898 | 
52 04 AC 00 00002 MOVL ats) AMDSC 3 1917 
50 046 =A b0 9006 OVL 4(Re ee Nast : 
51 6 § OOA MOVZWL (R2), ; 1918 
12 0000D NEQ 1$ 3 
51 000000006 00 9A QOO00F mOVZBL INSSG_KFENAM+59, R1 : 1921 
62 2] 4 Al Bo818 DOW a4, Al. ¢ ne) : 
3 0 oO 1A OVL NAMSTR, PTR 3 1922 
50 000000006 00 00 00010 MOVL INS$G KFENAM#76, RO 3 1923 
63 60 51 28 Bo0Se mMovC3) R1, (RO), (PTR) : 
63 0000° CF 00 00028 MOVL BLNAM_SUFFIX, (PTR) 3: 1924 
19 11 0002D BRB $ : 1918 
53 FF A140 9E B88 F 1$: MOVAB <=-1(R1)CNAMSTRIJ, PTR : 1928 
7 63 91 00034 2$: CMPB (PTR), #95 : 1929 
Of 13 00038 BEQL 3 
63 96 QO03A INCB (PTR) : 1931 
39 63 91 0003C CMPB (PTR), #57 3; 1933 
07 1B 0003F BLEQU $ 3 
63 30 90 00041 MOVB #48, (PTR) 3; 1936 
53 D7 00044 DECL PTR 3 1937 
EC 11 00046 BRB 2$ : 1933 
50 01 DO 00048 3$: MOVL #1, RO 3: 1944 
04 00048 RET 3: 1945 
; Routine Size: 76 bytes, Routine Base: $CODES + 09F3 
: 1587 1946 1 


—_—_——— ee ee eee eS ee eee anK—r www nn 


| 
D1 
_INSCREATE 16- Sep-1984 01:49:49 AX-11 Bliss-32 V4 0-748 Page 50 
v04- INSSBLD_GBLSECNAM Build the global section nam 14-Sep-1984 12:35:36 INSTAL. SRCJINSCREATE .B32;1 (18) | 
: 1589 1947 END ' Module inscreate | 
: 1886 1968 0 ELUDOM 
.EXTRN LIBSSIGNAL 

: PSECT SUMMARY 

; Name Bytes Attributes 

; NOVEC, WRT, RD ,NOEXE,NOSHR, 

: $SCODES 3 NOVEC.NOWRT. RD. EXE.NOSHR, 


Library Statistics 


oscnseee Symbols ecoes--- Pages Processing 
File Total Loaded Percent Mapped Time 
~-$255$DUA28: CSYSLIBILIB.L32;1 18619 129 0 1000 00:01.9 


| 

| 

| 

| 

| 

SOWNS LCL, REL, CON,NOPIC,ALIGN(2) | 
SPLITS 64 NOVEC,NOWRT, RD .NOEXE.NOSHR, LCL, REL. CON,NOPIC,ALIGN(2) 

26 LCL, REL. CON{NOPIC.ALIGN(2) 

| 

| 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: INSCREATE/OBJ=OBJ$: INSCREATE MSRC$: INSCREATE/UPDATE=(ENHS: INSCREATE) 


; Size: 2623 code + 80 data bytes 
; Run Time: 00:51. 

; Elapsed Time: 02:45.1 

; Lines/CPU Min: 2268 

: ponsnee serie) 19859 

; ry Used: 488 pages 

. pee ation Complete 
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